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A L'ESSAI 
E Le Basic du BBC 
vaut le détour 


& Tabiefte Koaia Pad, 
dessinez vos rêves 
les plus fous 


LANGAGES 


H Pourquoi Cobol 
reste le plus utilisé 


B Découvrez C, 
un luxe à votre portée 


LOGICIELS 
À L'ÉPREUVE 


M Un Basic de course 
pour Spectrum | 


H Caractor traduit vos +. 
dessins en programmes TO 7 = a 


LE] M Un assembleur complexe 
) et plus puissant pour C.64 
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1 COUVERTURE 

Selon Renée Koch, le roi de 
cœur est, lui aussi, un 
amateur de programmation. 


1 3 À VOS CLAVIERS 
1 5 LA GAZETTE DE 


LIST 


1 9 LA TABLETTE 


GRAPHIQUE KOALA PAD 
Aidée par un logiciel sur 
disquette, la Koala Pad 
permet de réaliser facilement 
des dessins de toutes les 
couleurs. 


22 LE ZX 81 À SA 


FENÊTRE 

Explorez sur votre écran le 
contenu d'un tableau grâce à 
une fenêtre qui se déplace 
dans quatre directions. 
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2 Le] PRÉSENTATION 


| DU LANGAGE C 

| Pour l'écriture des logiciels- 
système, un nouveau langage 
structuré, facile, rapide et 
transposable d'un matériel à 


un autre. 


2 / ORGANISATION 


DES DISQUETTES DU C.64 
Une radiographie de 
l'organisation des disquettes 
du Commodore 64 est 
indispensable, pour mieux les 
exploiter. 


3 0 À L'ESSAI : LE 


BASIC DU BBC 

Le Basic du très britannique 
BBC mérite largement le 
détour pour sa rapidité et son 
grand nombre d'instructions. 


3 3 TIC-TAC-TOE : UN 


PROGRAMME IMBATTABLE 
Ce programme écrit en Basic 
standard ne perd jamais. Son 
plus mauvais score est... le 
match nul. 


30 TROIS LOGICIELS À LA LOUPE 


“‘MCODER Il POUK SPECTRUM 

Quarante-huit Koctets de mémoire vive sont nécessaires 
pour utiliser ce compilateur Basic sur cassette. La 
récompense : la rapidité d'exécution augmente 


sensiblement. 


CARACTOR'’ POUR TO7 ET T07/70 

Simple d'emploi, ce logiciel sur cartouche permet de 
réaliser facilement des dessins à l'écran, puis de les 
transformer en programmes Basic ou Assembleur. 


“ASSEMBLER POUR COMMODORE 64 
Un macro-assembleur sur disquette dont l'utilisation est 
réservée aux initiés du langage Assembleur. 


4 4 PARAMÉTREZ, 


VOUS DIS-JE... 

Les variables n'ont pas fini 
d'étonner, elles se conduisent 
parfois comme de rusés 
renards. 


4 / PASSIONNÉ PAR 


FORTH 

Progressons encore dans la 
découverte de ce langage 
original. Ce mois-ci, nous 
nous intéressons à la pile de 
retour et aux opérateurs de 
pile. 


5 0 PROTECTION 


EFFICACE SUR PC-1500 
Par le biais d'un codage, 
quelques lignes en langage- 
machine interdisent tout 
“piratage” de programmes. 
Une tentative d'effraction ne 
ferait qu'embrouiller un peu 
plus les codes. 


Le] 2 TRI À GRANDE 


VITESSE : 

Le principe du tri Quicksort 
de Hoare est facile à 
comprendre mais plus 
difficile à mettre en œuvre. 
La rapidité qui en résulte 
vaut bien un effort. 
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L] 4 FONCTION 


MODULO 

La HP-41 C est dotée d'une 
fonction Modulo dont 
l'application principale est le 
test de divisibilité. Des 
prolongements originaux sont 
possibles. 


à 6 L'HISTOIRE DES 


LANGAGES : LE COBOL 

La création de Cobol 
répondait aux besoins posés 
par la gestion de fichiers de 
données importants. Après 
plusieurs ébauches, il est 
arrêté dans sa forme 
définitive et déclaré d'utilité 
publique”! 


Le] 9 LES DIX TESTS DE 


LIST 

Dix mêmes tests sont 
appliqués ici au QX-10 
d'Epson et au BBC d'Acorn. 
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SOMMAIRE 


61 PASCAL, TOUT EN 


MAJUSCULES 

Une procédure convertit les 
minuscules en majuscules 
pour faciliter de nombreuses 
applications. 


65 UN NOUVEAU 


LANGAGE : LE JAVANAIS ! 
La réalisation d'un 
programme (ici en Basic 
standard) de traduction en 
Javanais doit tenir compte 
des cas particuliers. Et ils 
sont nombreux ! 


66 UN MINI- 


MONITEUR POUR PC-1251 
La connaissance de l'état des 
registres internes du PC-1251 
permet la mise au point des 
Programmes en langage- 
machine. 


/ 0 DÉTECTEUR DE 


NOMBRES PREMIERS 

Une suite numérique, la suite 
de Perrin, semble mettre en 
évidence les nombres 
premiers. Un nouveau test de 
primalité en perspective... 


/ 4 PRÉCISION : UN 


JUSTE MILIEU 

Précision ne signifie pas 
toujours exactitude. Il faut 
savoir sacrifier les dernières 
décimales d'un résultat : leur 
précision n'est parfois 
qu'illusoire. 


/ 9 LA BOÎTE A 


MALICES 

Prenez un programme et 
retirez-en les astuces, des 
plus grossières aux plus 
subtiles. Que reste-t-il ? Rien. 
Dans ce numéro, des ficelles 
pour Atari, FX-602 P, 

FX-702 P, PET/CBM, TI-57, ZX 
Spectrum... 


6 4 LA RÉCRÉ DE LIST 


Exercez votre logique et votre 
ingéniosité pour résoudre 
quelques petits problèmes 
simples en apparence. 


Ce numéro contient en encart 
des bulletins d'abonnement 
paginés 11, 12, 77 et 78. 
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Feldman, Calleux & Associes 


LE MICRO:| 


CANON X 07 : 


BRANCHEZ VOTRE MICRO-ORDINATEUR 
SUR VOTRE TELEVISEUR. 


IMPRESSIONNANT, LE CANON X 07 POUR UN MICRO- 
PORTABLE ! UNE INTERFACE OPTIONNELLE VOUS PERMET 
DE LE BRANCHER SUR VOTRE TELEVISEUR ET DE VISUA- 
LISER AINSI TOUTES LES OPERATIONS INSCRITES SUR 
VOTRE X O7. 

MAIS LE CANON X 07 N’EST PAS SEULEMENT LE 
PREMIER MICRO-PORTABLE A ECRAN, IL EST AUSSI LE 
PREMIER MICRO-MULTICARTES. 

SA FORCE ? DES PETITES CARTES EXTRAORDINAI- 
RES POUR REALISER ET CONSERVER VOS PROPRES PRO- 
GRAMMES, COMME VOUS L'ENTENDEZ... À LA CARTE. 

PRATIQUE, IL PARLE EN BASIC, LE LANGAGE OR- 
DINATEUR FACILE A APPRENDRE. 

AVEC SES NOMBREUSES CASSETTES ET CARTES 
A PROGRAMMES AUSSI ELABORES QUE LA GESTION 
DE STOCK, LA FACTURATION, LA PAYE, LE TABLEUR, 
CANON X 07 À EGALEMENT BIEN D'AUTRES ATOUTS. 

GRACE A SES MULTIBRANCHEMENTS : MACHINE A 
ECRIRE, IMPRIMANTE, ORDINATEUR, MODEM ET MEME 
VOTRE TELEVISEUR... CE TOUT PETIT ORDINATEUR A 
TROUVE PLUS D'UN MOYEN POUR DEVENIR GRAND. 


JE SOUHAITERAIS RECEVOIR VOTRE DOCUMENTATION 
COMPLETE SUR LE MICRO-ORDINATEUR X 07. 

VOICI MON NOM, MON ADRESSE ET MON TELEPHONE : 
NOM _ 
SOCIETE 
— 


_ RUE 
VILLE 


CODE POSTAL __ _ TELEPHONE 


DEMANDE D'INFORMATION À RENVOYER À CANON FRANCE, 
93154 LE BLANC-MESNIL CEDEX, TELEPHONE 865.42.23. 


Canon 


CANON. HAUTE TECHNICITE, HAUTE SIMPLICITE 
CANON EST PRESENT AU SICOB : ZONE 4A, STAND 4101 


A EC] 


mérité 


__ LES MÉMENTOS PS.I. : 


votre 


les clefs de 


9 au 2 


ordinateur. 


Des livres destinés à se trouver en perma- 
nence à côté de votre ordinateur individuel 
tandis que vous programmez? 

Des livres qui renferment toutes les infor- 
mations que vous avez besoin de retrouver 
rapidement: syntaxes des commandes, 
codes caractères, message d'erreur, codes 
machine, adresses utiles... ? 

Des livres qui vous donnent des “trucs très 
précieux ? 

Ces livres sont les MEMENTOS P.S.I., pour 
une utilisation quotidienne de votre ordi- 


un | 


POUR 
fe L'APPLE Il 


“APPLE A plus et APPLE /e 


| Editions du GED) 


Clefs pour FOric 

Oric 1 et Amos 

par Emmanuel Flesselles 

116 pages - 100,00 FF 

Clefs pour le ZX Spectrum 
par Jean-François Sehan 

112 pages - 90,00 FF 

Clefs pour le ZX 81 

par Jean-François Sehan 

96 pages - 90,00 FF 


Clefs pour l'Apple 11 Clefs pour le Vic 
° par Nicole Bréaud Pouliquen par Daniel-Jean David 
… Fra Carter 144 pages - 100,00 FF 120 pages - 90,00 FF 
Dé Clefs pour le Commodore 64 _ Le Basic de À à Z 
ti, Dé. par Doniel-Jean David par Jacques Boisgontier 
* 128 pages - 100,00 FF 176 pages - 110,00 FF 
bu Clefs pour Visicalc CP/ M mot par mot 
# por Jean-Louis Marx et Alain Thibault par Yvon Dargery 
65.” 104 pages - 100,00 FF 112 pages - 90,00 FF 
CHEZ VOTRE LIBRAIRE OU EN BOUTIQUE SPÉCIALISÉE 
OO SO US M UN ES OO UN HER OO OURS DEN HUE MN OUR DU ŒUN CON ŒUUN UN OU UN ou = 
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P.S.I. DIFFUSION 


BP 86 - 77402 Lagny-S/Marne Cedex 


Envoyer ce bon 
accompagne de votre 


Crousre pra | 
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Téléphone (6) 006.44.35 ou. pour la Belgique et 
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1180 Bruxelles 
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A VOS CLAVIERS 


Toujours 
plus vite 
A seule fin de montrer que 
j'ai pris plaisir à lire le 
numéro 1 de LIST, voici en quoi 
il m’a été utile pour mon FX- 
702 P. 

Au départ, un convertisseur 
décimal-binaire avec un pro- 
gramme classique de divisions- 
soustractions successives par les 
puissances de 2, de 0 à 7. 

L’ennui, c'était le temps 
d'exécution : plus de 4 secondes 
après l’entrée du nombre. L'idée 
des tests (page 87 de LIST 1), 
arrivait à point nommé pour une 
série de mesures. Sans entrer 
dans le détail, et uniquement 
pour ce qui concerne le pro- 
gramme, une boucle vide de 1 à 
10 000 s’exécute sur le 702 en 
2 mn 47s. Bref (!), une vraie 
tortue. Comment faire plus 
rapide ? En supprimant la bou- 
cle, ça devrait aller mieux. 
Essayons… 

C’est nettement plus long à 
écrire. Mais on gagne d’une 
bonne moitié en temps de calcul. 
Continuons. Voyons, en décla- 


ENMenwe-9 


-Pâté de Ti57 
-C6# mayonnaise 
-Rôti de Pc 121 
Sauce Cobo| 
-Filets de Sharp 
du asee 
Tarte" Pascal 
=Gäteav de Debug 
à la crème de For 


Jill 
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rant une matrice vide au départ, 
on peut supprimer les GOTO et 
les $ = $ + ‘“O”. Ce qui donne 
une troisième version de mon 
programme. Moins d’instruc- 
tions dans la boucle de calcul, et 
donc gain de temps. 

Peut-on faire mieux ? Oui, en 
paramétrant (LIST, page 66) 
avec une ligne à l’initialisation. 
Quatrième version. A l’exécu- 
tion, on a 1,2 seconde de calcul 
maximum. Soit une division par 
3 sur le programme initial. Je 
vous laisse tirer les conclusions. 

Pour finir, j’ai également mis 
à profit l’astuce d’affichage de 
la boîte à malices (page 77) : 
comment ‘‘effacer’” un blanc sur 
FX-702 P. 


Jacques GUILLERON 
29 Quimperlé 


Pour trouver LIST 


ges par l’intermédiaire de 
publicités dans des magazi- 
nes que j'ai appris l’existence 
d’une nouvelle revue consacrée 
à la programmation. 

J'ai essayé sans succès de me 
procurer LIST auprès de deux 
libraires qui, non seulement ne 
Pavaient pas mais encore ne le 
connaissaient pas. 

Lors d’un passage à Paris, j’ai 
enfin pu trouver le premier 
numéro. 

J'aimerais pouvoir l’acheter 
près de chez moi. M’est-il pos- 
sible de commander LIST chez 
mon libraire ? 


Annie AMELLE 
03 Isserpent 


M Bien sûr ! I! vous suffit pour 
cela d'indiquer à votre mar- 
chand de journaux le numéro 


Écrivez à LIST 
S place du Colonel Fabien 
75491 Paris Cedex 10 


NMPP de LIST qui se trouve 
sur le côté gauche de la couver- 
ture, c’est-à-dire M2712, afin 
que lui-même puisse le 
commander. 


Des avis 
partagés 
Chers amis de LIST, 


à pau reçu les deux premiers 
numéros de votre (et mon) 
nouveau journal et je trouve que 
c’est une réussite. 

En apprenant la nouvelle de ce 
changement, j’ai craint un ins- 
tant de voir les ordinateurs de 
poche sacrifiés pour leurs frères 
aînés de table. Mais il n’en est 
rien et j’espère que mes craintes 
ne seront jamais justifiées. 

Avec mes félicitations. 


Luc THOMAS 
50 Octeville 


la lecture de l’éditorial du 
numéro de mai de l’Ordi- 
nateur de poche, je me suis 
réjoui de l’ouverture aux ordi- 


nateurs familiaux. Il s’agissait 
d’enrichir le journal, non 
d'abandonner les ordinateurs de 
poche. 

Quelle ne fut pas ma décep- 
tion lorsque j’ai eu le n° 1 de 
LIST entre les mains. Je me 
trouve devant un magazine 
imprimé sur du papier jaune 
dont il faut faire trois fois le tour 
avant de trouver l’article qui 
nous intéresse, perdu au milieu 
de rubriques tout juste dignes 
d’une revue de vulgarisation. Je 
le regrette. 


Claude LELIÈVRE 
45 Châtillon-sur-Loire 


USTE un mot au sujet de 

votre nduvelle formule 
LIST ; c’est vraiment la seule 
qui propose autant de diversité : 
programmation, essais, langages 
et poquettes. Tout ceci avec une 
pointe d'humour, ce qui ne gâte 
rien. 


Eric CANOVAS 
94 Saint-Maurice 


L: transformation de l'Op 
en LIST me fait craindre à 
plus ou moins longue échéance 
l'abandon des articles sur les 
petites machines au profit des 
ordinateurs familiaux. 
D'autre part, je ne vois 
aucune différence entre votre 
revue et les autres magazines 
d'informatique. Quel domma- 
ge ! 
Denis WIRION 
75011 Paris 


PRÈS avoir apprécié l’Or- 
dinateur de poche, j'ai 
constaté qu'avec LIST, vous 
n’aviez pas laissé de côté la 


INDEX DES ANNONCEURS 


DDC Sémaphore 
Décision Informatique 
Duriez 


Guide de l’Ordinateur Individuel 
Librairie Informatique d’Aujourd’hui 


Maubert Electronic 
PAC + 

Petit Ordinateur Illustré 
PSI 
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mm 


HP-41 C. Cette machine fait des 
merveilles avec ses multiples 
combinaisons et ses trésors 
cachés. 


Roger DELEPLANQUE 
02 La Fêre 


ISPOSANT d’un Sharp 

PC-1251, je me permets de 
vous exprimer ma satisfaction en 
ce qui concerne votre revue. 


Vincent FORICHON 
59 Valenciennes 


Nos dix tests 
et vos machines 


E suis heureux qu’une 

revue d’informatique pour 
les programmeurs soit enfin 
parue. Les magazines axés sur le 
matériel et les logiciels profes- 
sionnels m’intéressent peu et les 
revues traditionnelles n’insistent 
pas assez sur la programmation. 

J'ai apprécié en particulier vos 
dix tests. Je les ai appliqués à 
deux machines : l’extension 
ordinateur du Philips Vidéopac 
(G7400 + G7420) muni d’un Z 
80 A et d’un Basic Microsoft, et 
mon Apple Ile. 


Philippe LHOSTE 
64 Orthez 


E viens de dévorer votre 
premier numéro. À propos 
des dix tests, Christian Boyer 
aurait dû ménager les nerfs des 
““Opéistes’”” en faisant aller les 


A VOS CLAVIERS 


boucles de 1 à 1 000 au lieu de 
1 à 10 000. 

Quoi qu’il en soit, l’idée est 
bonne et j'espère que vous 
publierez les temps de très nom- 
breuses machines. J’ai moi- 
même essayé les tests sur celles 
que je possède : PC-1500, 
PC-1245 et PB-100. 


Jérôme GAUDIN 
49 Angers 


M Vous avez raison, mille tours 
suffisaient pour tester vos 
poquettes. Nous précisions d’ail- 
leurs dans l'introduction de f’ar- 
ticle que ‘‘pour certains ordina- 
teurs’””, nos lecteurs devraient 
‘procéder à des adaptations’? 
Quant à présenter les temps 
d’autres matériels, nous avons 
bien l’intention de le faire aussi 
souvent que possible. 


Deux ans, c'est 
très, très long... 
Chers amis de LIST, 


ROFITANT de mon 

abonnement au successeur 
de l’Op (longue vie à LIST !), je 
me permets une petite suggestion 
qui sera sûrement appréciée par 
vos anciens et vos futurs lec- 
teurs. La voici : pourriez-vous 
faire un index récapitulatif par 
machines et par rubriques des 
trois derniers numéros de l’Op 
dans le même style que celui que 
vous y aviez déjà publié. 


Cela serait vraiment pratique 
et parachèverait la collection 
(complète dans mon cas) de 
l’Op. 

Et bien sûr, faire de même 
avec LIST dès qu’un certain 
nombre de numéros seront 


pour le moment. La conception 
de LIST nous occupe déjà beau- 
coup. Mais peut-être un de nos 
lecteurs s’est-il constitué pour 
son propre usage l’index que 
vous recherchez. S’il veut bien 
vous l’adresser, il lui suffit de 


nous l’envoyer, nous vous le 
transmettrons. 


parus. 


Marc VAROQUI 
57 Moulins-les-Metz Nous reprendrons bien 
entendu l’idée pour LIST (nous 
savons qu’elle a été très bien 
accueillie), mais nous n'’atten- 
drons pas 20 numéros avant de 
publier l’index des articles 
parus : deux ans, c’est vraiment 
très long ! 


M Pour les 20 premiers numé- 
ros de l’Op, l’index récapitula- 
tif se trouve dans le n° 21. Pour 
les n°5 21, 22 et 23, nous ne pré- 
voyons pas d'établir d’index 


Basic étendu du TI 99/44 


EST avec intérêt que j'ai lu le numéro 1 de LIST. Toute- 

fois, je suis surpris de voir un article sur le ‘Basic étendu”” du 
TI 99/A4 à la fin duquel vous indiquez que l’on peut se procurer 
la cartouche et le manuel correspondant pour environ 500 F alors 
que, depuis plusieurs mois, j’essaie en vain de trouver ce module 
qui est effectivement intéressant. 


Pouvez-vous m'éclairer et m'indiquer si l’on peut espérer le voir 
réapparaître sur le marché ? 

Jean GOUZE 

92 Boulogne-sur-Seine 


B Si Texas Instruments a cessé la commercialisation du TI 99/4A 
et des logiciels s'y rapportant, le ““Basic étendu”? que nous présen- 
tions dans notre premier numéro devrait être disponible dès la fin 
du mois de septembre, La Règle à Calcul en reprenant la distribution. 

Le manuel joint à la version proposée par Texas Instruments était 
en anglais. La cartouche est désormais accompagnée d’une notice 
en français, le tout pour 900 F. 

Les lecteurs de province pourront se procurer le logiciel par cor- 
respondance en ajoutant à leur règlement 30 F pour frais de port. 
La Règle à Calcul 
65/67 boulevard St-Germain - 75005 Paris - Tél. : 325 68 88 


LIST - PAGE 14 


Les dernières parutions de 


sont disponibles à la 


LIBRAIRIE INFORMATIQUE D’AUJOURD’HUI 


253, rue Lecourbe, 75015 Paris. © (1) 82872 88 - Métro : Convention ou Boucicaut, ouvert du lundi au samedi de 9h à 19h 


Informatique 
d'Aujourd'hui 
TOUS VOS livres ef 
FUTES VOS revues 
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UN LIVRE 


Programmation inventive 
Xavier de La Tullaye 
Éditions du PSI 

Lagny, 1984 

Broché, 160 pages 

Prix : 95 FF 


E livre offre, avec un 

enthousiasme communica- 
tif, une réflexion anti-pédante et 
très efficace sur l’activité du pro- 
grammeur individuel. C’est un 
ouvrage d'initiation, certes, 
tourné en particulier vers les jeux 
et lisible par quiconque aurait 
déjà posé les doigts sur le clavier 
d’un Casio FX-702P, par exem- 
ple. Mais il apprendra sûrement 
aussi quelque chose aux plus 
chevronnés qui, après avoir lu ce 
livre, ne regarderont sans doute 
plus les mots algorithme ou 
organigramme tout à fait de la 
même manière. 

A ce propos, l’auteur choisit 
son camp : il se veut un farou- 
che défenseur de l’organi- 
gramme qui est parfois violem- 
ment critiqué par quelques théo- 
riciens. 

En refermant son livre, l’on 
s'aperçoit soudain que, sans 
douleur, à coups de blocs, d’ar- 
bres, de classements, d’architec- 
ture, nous savons tout sur la 
programmation str... (chut, le 
mot redoutable n’est écrit 
qu’une fois, en passant...). Un 
coup de force ! Avec, en plus, 
des programmes de tri à bulle, 
de chasse au sous-marin sur 
ordinateur de poche (et aussi en 
Basic Microsoft), et même de 
calcul du volume d’une sphère. 

Un plaisir, quoi ! 
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Festival du logiciel 
Triomphe pour un Transat. 


ES idées sous le soleil. De la matière grise à foison au pied de 

la cité des Papes : le 2° festival du logiciel de Villeneuve-les- 
Avignon (certains l’écrivent : Villeneuve-lez-Avignon) a tenu la 
vedette près d’un mois durant auprès d’un public curieux, fidèle, 
pincé.. Chauds les claviers ! 

De nombreux parrains à cette manifestation : le mensuel-ami {’Or- 
dinateur Individuel, RTL, la Fondation de France, l’ Agence pour 
l’Informatique, le Crédit Mutuel, etc. Bigre. La programmation sait 
déchaîner les passions. 

Témoin, la passion selon Jean-Marc Sornin. 29 ans, géologue, 
il enlève le Grand Prix avec son Transat, pianoté à l’origine sur un. 
ZX81, il y a quatre ans. La version finale sur Apple est quand même 
plus musclée ! Quid ? un jeu. Pour passionné de courses à la voile, 
en solitaire face à l’écran. Vous quittez la Rochelle pour Halifax. 
A vous de déterminer le bon fret, celui qui n’alourdira pas trop les 
bateaux tout en garantissant aux équipages un approvisionnement 
suffisant en plein Atlantique. 

Jean-Marc Sornin n’a pas prévu de courte paille en cas de disette. 
Son logiciel, en tout cas, ne vous laisse pas sur votre faim. 

Le festival ne s’est pas privé de primer les professionnels. C’est 
Pillage cosmique d'Ediciel, jeu d’adresse sur Spectrum, qui a plu 
au jury de Villeneuve-les-Avignon. Ludique à l’honneur ? Pas tou- 
jours. Le prix de l’Ordinateur Individuel s’en est allé à Dominique 
Sola pour Logodomi, un didacticiel pour TI 99. 

La liste des gagnants est encore longue. Préparez-vous. A l’an- 
née prochaine ! = 


DU CÔTÉ DES CLUBS 


à qui le leur demandera, les 
mystères de la programmation 
sur cet ordinateur. Vous pouvez 
vous joindre aux programmeurs 
qui correspondent déjà avec eux 
en leur écrivant à l'adresse 


Avis aux Oricophiles du Var 


I vous habitez Toulon ou 
ses environs, si vous possé- 
dez un Oric et que vous tient le 
démon de la programmation, 
vous pouvez échanger vos idées 


et vos découvertes avec d’autres Suivante : 
amateurs. Monsieur LUCEAU 
Club MZ 700 


Une quinzaine de jeunes de 16 
à 20 ans sont déjà réunis au 
“Club Oric 83” ; ils vous y 
attendent à partir du 1° octobre 
courant. 

Deux réunions mensuelles 
sont prévues, entre 14 et 16 heu- 
res, les premier et troisième 
samedis de chaque mois. Une 
participation annuelle de 30 F 
est demandée à chaque membre. 
N'hésitez pas à écrire ou à 
téléphoner. 

Club Oric 83 
7 avenue des Vignettes 
83000 Toulon 
Tél. : 16 (94) 41 42 23 


2 rue Saint-Lubin 
28210 Boullay-Thierry 
Tél. : 16 (37) 38 37 96 


CARNET ROSE 


Pour les mordus d’Alsace 


ÈS la rentrée scolaire, habi- 

tants de Strasbourg et de sa 
région qui pianotez, vous pour- 
rez Vous retrouver dans un nou- 
veau club. 

Dans le cadre d’une associa- 
tion de quartier, le Micro-Club 
ARES propose aux débutants de 
les initier au Basic. 

Informations, conseils aux 
nouveaux venus, mais aussi et 
surtout, rencontres entre bran- 
chés et mordus du 
microprocesseur. 

Une participation de 60 F est 


Si vous êtes tenté 
par le Sharp MZ 700 


INQ passionnés ont créé 
à Boullay-Thierry dans 
l’Eure-et-Loir un club MZ 700. 
Ils proposent de faire découvrir 


UN LIVRE 


Sharp PC-1500 

Technical reference manual 
Sharp corporation 

Japon, 1983 

Broché, 160 pages 

Prix : 150 FF. 


E voici disponible ce « livre 

d’or » tant attendu, réfé- 
rence vitale pour tout fanatique 
du PC-1500 ! De la « carrosse- 
rie » aux logiciels, tout est par- 
faitement décortiqué au long des 
160 pages du manuel qui n’a pas 
volé son titre de « référence 
technique ». 

Sont étudiés le microproces- 
seur d’abord, riche de son jeu 
d'instructions, puis le port d’en- 
trées/sorties LH 5811. Suivent 
les descriptions matérielles et 
logicielles de la petite bécane, 
agrémentées de quelques exem- 
ples de programme en langage- 
machine. En prime et en fin de 
manuel, les plans détaillés du 
PC-1500 et de ses périphériques. 
Le bricoleur pourra s’en donner 


demandée à chaque membre de 

l’association. Le montant de la 

cotisation à verser au Micro- 

Club n’a pas encore été fixé. 
Les réunions auront lieu cha- 

que jeudi à partir de 20 heures à 

V'ARES ; 

10 rue d’Ankara 

67000 Strasbourg 

Tél. : 16 (88) 61 63 82 


Dans la Haute-Garonne 


AISSANCE à Portet-sur- 

Garonne d’une association 
qui souhaite accueillir tous les 
passionnés d’informatique de 
poche. 

L'Union pour la Promotion 
du Calculateur Programmable, 
c’est son nom, a pour but de 
promouvoir la pico-informa- 
tique chez les amateurs et les 
professionnels ainsi que de 
regrouper tous ses utilisateurs 
français. 

L'association produit tous les 
deux mois un bulletin interne. 

Pour de plus amples informa- 
tions, vous pouvez contacter 
PU.P.C.P. 

18 avenue des Mimosas 
31120 Portet-sur-Garonne 
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à cœur joie entre les schémas de 
« timing », les valeurs de résis- 
tances et autres tensions. 

Il n’en demeure pas moins que 
ce manuel apparemment com- 
plet reste succinct et souvent 
avare de commentaires. Je con- 
seille au débutant de préférer 
dans un premier temps une 
bonne bible du Z80 qui lui sera 
de la plus grande utilité pour 
aborder ce manuel Sharp, rebelle 
à l'initiation du néophyte. 


ICL 


Moniteur désassembleur 
Cassette pour Sega 3000 
Édité par Loriciels 

Prix : 180 FF 


Forth 

Cassette pour Spectrum 
Édité par Artic 
Distribué par Innelec 
Prix : 295 FF 


Zoom Pascal 

Disquette pour Commodore 64 
Édité par Micro Application 
Software 

Prix : 490 FF 


Oric Basic Plus 

Cassette avec programme pour 
Oric-1 et pour Atmos 

Basic étendu 

Édité par ARG Informatique 
Distribué par Innelec 

Prix : 125 FF 


Tasprint 

Cassette pour Spectrum 
Pour obtenir de nouvelles 
polices de caractères 


CASSETTES ET DISQUETTES 
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DEUX LIVRES 


Assembleur du TRS 80 
Daniel Ranc 

Éditions Techniques et 
Scientifiques Françaises 
Collection Poche 
Informatique 

Paris, 1984 

Broché, 128 pages 

Prix : 35 FF 

E manuel de Daniel Ranc 


sur le langage-machine et 
l’assembleur du TRS 80 fera le 


Édité et distribué par 
Sémaphore 
Prix : 105 FF 


Spectrum Assembleur 
Cassette pour Spectrum 
Assembleur-désassembleur 
et moniteur 

(Manuel en anglais) 

Édité par Artic 

Distribué par Innelec 
Prix: ISS FF 


Drag Bug 
Cassette pour Dragon 32 
Assembleur-désassembleur 


plaisir des ‘‘ludiques’”’ plus sûre- 
ment qu'il ne servira les ambi- 
tions de ceux qui utilisent leur 
ordinateur pour écrire un nième 
‘“biorythme””. Il sera, plus géné- 
ralement, la bible de tous ceux 
qui ont besoin de rapidité dans 
leurs programmes et, bien 
entendu, à la minorité agissante 
qui aime bien savoir ‘‘comment 
ça se passe à l’intérieur”. 

Il existe déjà beaucoup d’ou- 
vrages, certains excellents, sur 
lAssembleur et particulièrement 
sur le processeur du Z80. L’au- 
teur s’attaque ici à une machine 
bien connue, le TRS 80, mais en 
se limitant malheureusement au 
Modèle I à cassette, aujourd’hui 
très dépassé. Court mais clair, il 
comporte quelques routines qui 
pourront se montrer utiles (clas- 
sement par ordre alphabétique, 
gestion d’écran, affichage de 
chaînes...). On y trouvera 
notamment un bon chapitre sur 
la gestion des entrées/sorties. 

C'est sans doute le manque de 
place qui a obligé l’auteur à res- 
ter incomplet. Bien entendu, le 
jeu d’instructions du Z80 n’y 


. figure pas en totalité, mais il est 


facile de le glaner ailleurs (par 


Édité par Personal Software 
Services 

Distribué par Innelec 

Prix : 170 FF 

Forth 

Cassette pour Atmos 

Édité par Tansoft 

Distribué par Innelec 
(Manuel en anglais) 

Prix : 190 FF 


Moniteur 1.0 
Cassette pour Oric-1 et Atmos 
Assembleur-désassembleur 
Édité par Loriciels 

Prix : 140 FF 


exemple dans la documentation 
du programme Assembleur, édi- 
tée par EDTSAM et dont l’au- 
teur présente rapidement le 
mode d’emploi). Une façon inté- 
ressante de faire la connaissance 
de l’Assembleur. 


AW 


Pour mieux utiliser le 
Commodore 64 
Méthodes pratiques 
Jacques Boisgontier 
Éditions du PSI 
Lagny, 1984 

Broché, 160 pages 
Prix : 100 FF 


UELQUE 50 program- 

mes et exercices variés à 
mettre en œuvre sur Commo- 
dore 64 : les utilisateurs curieux 
de cet ordinateur-là apprécie- 
ront. Les ‘‘faux débutants” en 
Basic aussi. Faux débutants pour 
la bonne raison que cet ouvrage 
ne se veut pas vraiment un livre 
d'initiation à la programmation 
Basic. 

Il exige quelques connaissan- 
ces élémentaires, fussent-elles 
acquises ailleurs que sur le C.64. 

On apprend pourtant beau- 
coup avec ces ‘‘méthodes prati- 
ques’ : une première partie 
passe en revue les instructions 


CALCULATRICES et ORDINATEURS de POCHE 
et accessoires 
Super Promotion sur Stock ! 


PC1245-PC1251-PC1255-PC1401-1500A-1260-1261 etc. 
prochainement PC1350 


TT HP 11-HP12-HP 15- HP 41CV-HP 410X 


CANON X 07 et périphériques etc. 


MAUBERT ELECTRONIC 49, bd. 
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HP71 etc … 


(7: CC 1102 FX700- 702P-PB700 etc … prochainement FX 750 
St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 
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Basic fondamentales, insiste sur 
les plus puissantes et les plus 
complexes, montre à l’usager les 
particularités propres au Com- 
modore. Un exemple d’applica- 
tion, systématique, accompagne 
chaque instruction, un exemple 
de difficulté variable. Clarté et 
pédagogie gouvernent l’ensem- 
ble. Agréable à suivre. 

A souligner : l'effort particu- 
lier accordé au graphisme haute 
résolution (avec ou sans exten- 
sion ‘‘tool”’), aux lutins (‘“spri- 
tes’”), aux caractères program- 
mables. Le tout servi de schémas 
clairs, bien conçus. Une excel- 
lente introduction au bénéfice 
des apprentis graphistes hésitant 
sur les voies à suivre, Mais une 
introduction seulement. 
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En revanche, silence (!) sur les 
possibilités musicales du C.64. 
L’auteur a peut-être tout simple- 
ment préféré faire l’impasse sur 
un thème méritant à lui seul un 
ouvrage entier. 

Il a consacré, pour se rattra- 
per, un nombre confortable de 
pages aux fichiers : sur cassette, 
sur disquette, séquentiels, rela- 
tifs, indexés. Les explications 
demeurent simples et claires, 
enrichies toujours de schémas 
bien pensés. Et de programmes 
d’application, bien sûr, pour 
chacun des thèmes abordés au 
long de cet important chapitre. 

La deuxième partie, moins 
étoffée, rassemble quelques pro- 
grammes de jeu. Essentiellement 
graphiques. 

Enfin des programmes de ges- 
tion, simplifiés, forment une 
conclusion logique aux fichiers. 

“Pour mieux utiliser.…..?” s’ac- 
quitte de sa mission en complé- 
tant utilement la notice que 
Commodore livre avec ses 
machines. Les programmeurs du 
C.64, forts de leurs premières 
armes, y trouveront matière à 


progrès. JPL 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Initiation à la programmation 
Claude Delannoy 

Editions Eyrolles 

Paris, 1984 

Broché, 192 pages 

Prix : 90 FF 


Le Traducteur Micro 
Jean-Pierre Lamoitier 
Lexique anglais-français des 
1500 mots-clés de la 
micro-informatique 
Editions Edimicro 

Paris, 1984 

Broché, 152 pages 

Prix: 58 FF 
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MUR ) 


LL JUL 
LAN 


Le Langage C 
Jean-Louis Fourtanier et 
Violaine Prince 

Editions Editests 

Paris, 1984 

Broché, 112 pages 

Prix : 90 FF 


Commodore 64, 

66 programmes Basic 
Stanley R. Trost 
Editions Sybex 

Paris, 1984 

Broché, 202 pages 
Prix : 78 FF 


OUR relier une imprimante 
équipée d’une liaison pa- 

rallèle (type Centronics) à un 
C.64 ou à un VIC 20, nous 
avons trouvé une petite inter- 
face, à Strasbourg, plus précisé- 
ment à Bischheim (4a, rue 
Nationale, 67800 Bischheim). 

Son type : 92008. Elle se con- 
necte, tout comme l’imprimante 
d’origine, sur le bus série 
« imprimante/floppy » du 
Commodore. Le port utilisateur 
est alors libre comme l’air. 

Atout de la 92008 : sa mé- 
moire-tampon de 8 000 caractè- 
res. Elle accélère confortable- 
ment l’exécution des program- 
mes exigeant des impressions. Si 
tel n’est point votre souci, l’in- 
terface existe aussi sans cet ajout 
mémoire. Elle est alors du type 
92000. 

Livrée avec câbles d’entrée et 
sortie, elle est annoncée (pour la 


Programmer en C 
Claude Nowakowski 
Editions du PSI 
Lagny, 1984 
Broché, 136 pages 
Prix : 80 FF 


30 programmes pour 
Commodore 64 
Dominique Lasseran 
Editions Techniques et 
Scientifiques Françaises 
Collection Poche 
Informatique 

Paris, 1984 

Broché, 128 pages 

Prix : 35 FF 


MOS5 premiers programmes 
Rodnay Zaks 

Editions Sybex 

Paris, 1984 

Broché, 248 pages 

Prix :98FF 


Langage machine pour ZX81 
Paul Sirven 

Editions Radio 

Paris, 1984 

Broché, 176 pages 

Prix : 75 FF 


I 


fin septembre) à 730 FF ttc envi- 
ron dans sa version de base et les 
8 Koctets de mémoire la portent 
à 910 FF ttc environ. Li 


UN LIVRE 


Spectrum Microdrive Book 
Dr Ian Logan 

Editeur Melbourne House, 
Church Yard, 

Tring, Hertfordshire 

HP 23 5LU 

Broché, 106 pages 

Prix : 107 FF ttc 


AN LOGAN, Docteur lan 

Logan, est un monsieur bien 
connu des « sinclairistes ». 

Il a publié les désassemblages 
complets des programmes moni- 
teurs du ZX81 et du ZX Spec- 
trum. Il poursuit ici son 
« œuvre » avec ce Spectrum 
Microdrive Book, du reste point 
du tout réservé aux dites 
« microdrives », mais bien plu- 
tôt consacré à l’analyse des trois 
fonctions de l’interface ZX1. 

Le « book » attaque fort logi- 
quement par l’ossature maté- 
rielle de la ZXI1 et la description 
de ses nouvelles fonctions. Mais 
le plat principal, ce sont bien les 
trois temps-clefs, la trilogie 
interface de la ZX1. Trois cha- 
pitres pour comprendre : 
« Microdrives », réseau et liai- 
son RS 232. 

lan Logan décompose claire- 
ment la séquence des opérations 
que réalisent les nouvelles com- 
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mandes. Une mention très bien 
pour les explications du contenu 
des « tampons » et les subtilités 
de « timing ». 

Restait à se plonger dans l’uti- 
lisation du langage-machine avec 
l'interface ZX1. A ce stade, une 
surprise. Si Logan s’acquitte 
avec précision du décortiquage 
des fonctions de 23 « hook 
codes », un curieux « imprima- 
tur » scelle le 24°, sans nul doute 
le plus intéressant, par une sim- 
ple et pudique mention : 
« réservé à Sinclair Research 
Ltd » ! Explication de l’auteur 
sous forme de note : c’est Sin- 
clair Research qui a expressé- 
ment demandé que les détails 
propres à compromettre l’inti- 
mité, la «sécurité » des 
« microdrives » ne soient pas 
publiés. Force nous est donc de 
tenter de lire entre les lignes pour 
en extraire certains éléments, à 
peine suggérés ! 

Un «blanc » surprenant, 
impuissant toutefois à battre en 
brèche la valeur de l’ouvrage : il 
demeure essentiel pour qui veut 
utiliser au mieux son interface 


ZXI. BT 
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AR MSX comprenez « nou- 

velle vague » : 20 construc- 
teurs ont prêté serment d’al- 
légeance au nouveau venu du 
standard familial 8 bits. Plus de 
25 modèles recevront l’appui 
tactique de 220 logiciels ! Soit 
près de 60 000 machines cons- 
truites chaque mois : ces préci- 
sions témoignent de l’envergure 
donnée à cette gamme 
d’ordinateurs. 

Le pari : assurer une compa- 
tibilité totale entre tous les ordi- 
nateurs à venir. Pour cela, défi- 
nir un standard matériel et logi- 
ciel ; en l’occurrence, le Basic 


choisi est une version étendue du 
MS.BASIC 4.5 inscrite en 32 
Koctets de mémoire morte, uti- 
lisant une précision de 14 chif- 
fres pour les calculs, des com- 
mandes graphiques complètes 
(Draw, Circle, Line, Paint, 
Color, Sprite, Screen.) et sono- 
res (Play...). 

Le matériel est bâti autour 
d’un processeur central Z80A et 
d’un processeur graphique 
TI TMS 9918A, celui-ci gérant 
24 lignes de 32 ou 40 colonnes 
de texte (256 X 192 points) en 
16 couleurs. Le générateur 
sonore GI AY-3-8910 standard 


connaît 8 octaves de fréquences. 

L'originalité du système 
repose dans quatre slots d’exten- 
sion mémoire : chacun accepte 
quatre pages de 16 Koctets de 
mémoire vive supplémentaires 
ou bien une extension de quatre 
slots secondaires. Donc un ordi- 
nateur MSX gérera un maxi- 
mum de 16 x 64 Koctets de 
mémoire vive ! 

La norme MSX désigne aussi 
un système d’exploitation : 
MSX-DOS, qui possédera une 
interface de compatibilité avec 
CP/M 80 permettant l’accès à la 
plus vaste bibliothèque de pro- 
grammes pour ordinateurs Z80. 
Une éventuelle compatibilité 
avec MS-DOS, le standard des 
16 bits, serait envisagée. Il existe 
également un MSX Disk Basic 
de 16 Koctets de mémoire morte, 
indépendant de MSX-DOS. 

Toutes ces caractéristiques 
préfigurent une génération de 
machines bas de gamme de hau- 
tes performances à usage essen- 
tiellement ludique, mais ouver- 
tes à toutes les applications 
sérieuses non-professionnelles. 


MA BE 


DE 4 A10 K EN POCHE 


SHARP PC-1260/61 


ere e Equipé d'un tableur qui saisit 
et calcule immédiatement 
toutes vos données, le PC 1260 


vous indiquera également en 


clair la manière de corriger 
vos éventuelles erreurs de 
programmation. 


SHARP 


153. avenue Jean-laurés 93307 Aubervilliers Cedex 
Téléphone: 834.93.44 - Télex: 212174 F | 


EE LLL 
BOC0EC600m 00608 


La gamme SHARP c'est aussi : PC-1245, PC-1251, PC-1401, PC-1350, PC-1500A 
et les services du Club des SHARPENTIERS. 


TD Publicité 
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KOALA PAD 


Apple, 
La Koala Pad est distribuée par BIP. 


LES ESSAIS DE LIST 


RODUIT d'Outre-Atlantique, 
la tablette graphique Koala Pad 
est importée en France depuis peu. 
Elle est pourtant un élément passionnant 
pour la mise en œuvre des capacités graphiques 
du Commodore 64. 
D'autres versions existent aussi pour Vic 20, 


Atari et IBM PC. 


Son prix : environ 1 300 FF ttc. 


Facilement extrait de son 

emballage, Koala (version pour 
C.64) se présente sous la forme de 
trois éléments distincts qui sont, par 
ordre de taille : 


e la tablette graphique et son stylet, 
e la documentation, 

e la disquette contenant le logiciel de 
dessin. 


L’examen de ce contenu révèle donc 
que la possession d’un lecteur de dis- 
quettes est indispensable. 


Cette fameuse tablette, clé de voûte 
N°3 - OCTOBRE 84 


du système Koala se présente extérieu- 
rement comme un boîtier de plastique 
blanc. Sa face supérieure noire lui con- 
fère l’aspect d’une ardoise d’écolier ; 
ressemblance encore accentuée par la 
présence du stylet à pointe arrondie 
(en plastique également). 


Toutefois, les formes futuristes, la 
présence de deux touches noires et 
d’un câble de liaison incongrus sur une 
ardoise d’écolier laissent deviner une 
utilisation quelque peu différente de 
celle imaginée au premier abord. 


La tablette graphique a donc un 


aspect bien sympathique, sinon fami- 
lier. Mais ses dimensions réduites (11 
X 11 cm) ne sont-elles pas un inconvé- 
nient ? Sa précision est-elle suffi- 
sante ? A-t-elle une bonne sensibilité ? 


Pour apporter une réponse à toutes 
ces questions, l’utilisation du logiciel 
fourni avec la tablette s’impose. Mais 
avant tout, consultons… 


La documentation se réduit à un 
livret petit format de 25 pages traitant 
du mode d’emploi du logiciel, plus un 
dépliant de sept pages concernant l’uti- 
lisation de la tablette proprement dite. 
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D'’emblée, c’est une mauvaise sur- 
prise : ces deux documents sont en 
anglais ; et malgré une fouille en règle 
de l’emballage, nulle traduction fran- 
çaise, même sommaire, ne montre son 
nez. Moi qui espérais pouvoir confier 
l’ensemble aux mains inexpertes de ma 
fille, me voici condamné à lui appren- 
dre d’abord l’anglais ! 


Mais, qu’à cela ne tienne : je vais 
auparavant travailler pour mon propre 
compte. Ces deux documents parais- 
sent clairs et bien conçus. Dieu 
merci, j'ai conservé quelques restes 
d’une lointaine scolarité laborieuse ! 


Le logiciel Koala Painter, troisième 
et dernier élément, se présente sous la 
forme d’une disquette contenant le 
logiciel de dessin. A en juger par les 
photos d’écran qui illustrent l’embal- 
lage du Koala, ses possibilités semblent 
pour le moins intéressantes. Le charge- 
ment du programme fait d’abord 
apparaître sur l’écran une image haute 
résolution (pas mal !) tandis que la 
mise en mémoire se poursuit pendant 
près de deux minutes. Enfin, un cli- 
quetis se fait entendre du côté de la 
disquette, indiquant que le logiciel est 
protégé contre la copie, et un menu — 
en anglais, encore ! — s’affiche alors à 
l’écran (voir photo ci-dessous). Nous 
voici donc à pied d'œuvre. 


La tablette, connectée à l'ordinateur, 
remplit son office à merveille : une 
pression du doigt ou du bout du stylet 
sur la surface sensible fait apparaître 


Dr ass 


Line 


sen 
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sur l’écran une flèche que l’on déplace 
à volonté. Elle obéit, c’est le cas de le 
dire, au doigt et à l’œil. Le clavier du 
Commodore 64 devient parfaitement 
inutile : voilà qui fait irrésistiblement 
penser à la souris chère à Apple ! Une 
pression sur l’une des touches de la 
tablette et l’élément de menu est aussi- 
tôt sélectionné : commande de tracé, 
aspect du pinceau, choix des couleurs 
ou gestion de disquette. Simplicité et 
efficacité remarquables. 


Une facilité | 


_ étonnante 


Après quelques tâtonnements et 
quelques coups d’œil sur la notice, le 
résultat prend forme et, ma foi, 
l’œuvre a belle allure ! Un détail qui 
cloche ? ZOOM sur le défaut. Une 
bavure inconsidérée ? OOPS immé- 
diat. Une couleur à choisir, une ligne 
droite à tracer, un cercle, une boîte, 
une surface à remplir ? 


Tout s'effectue en un clin d’œil, 
avec une facilité étonnante et le résul- 
tat est excellent. Huit formes et tailles 
de pinceaux sont disponibles. Quant à 
la palette, elle comporte 32 couleurs 
(les 16 couleurs de base du Commo- 
dore 64, plus les mêmes couleurs tra- 
mées). Parmi les 17 commandes que 
l’on peut sélectionner, signalons STO- 


RAGE, seule commande non graphi- 
que, qui permet de conserver et de 
récupérer sur disquette un dessin 
achevé ou à terminer plus tard. Cette 
même commande sert aussi à formater 
une disquette neuve. 


La disquette programme contient 
d’ailleurs quelques dessins déjà réali- 
sés. Il est possible de les reprendre 
intégralement ou d’en recopier quel- 
ques éléménts à insérer dans une 
œuvre personnelle. 


Ces petits tours de passe-passe sont 
rendus possibles par l’existence de 
deux pages-dessin indépendantes l’une 
de l’autre et sélectionnables à volonté, 
les éléments de l’une pouvant passer 
sur l’autre grâce aux commandes 
SWAP et COPY. - 


Il suffit de quelques minutes de 
manipulation pour se familiariser avec 
ce nouveau périphérique. Chaque 
commande figurant au menu est 
accompagnée d’un dessin explicatif 
utile à qui ne connaît pas l’anglais (ou 
ne sait pas lire !). Et si la notice reste 
hermétique, quelques tâtonnements 
permettent de saisir rapidement com- 
ment fonctionne le tout. 


A l'usage, la taille relativement 
réduite de la surface tactile ne pose pas 
de problème : sa sensibilité, jointe aux 
performances du logiciel, rend son 
usage aisé. 


En cas de perte du stylet, il est pos- 
sible de dessiner avec le doigt, mais la 


Le menu : 
tracer des 
droites, des 
cercles, des 
courbes, choisir 
sa couleur. 
Tout est prévu, 
mème la 
gomme | 
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TABLETTE GRAPHIQUE KOALA PAD 


précision s’en ressent. Ne jamais utili- 
ser la tablette avec un outil pointu, en 
particulier s’il est métallique (crayons 
‘et stylos à bille sont à proscrire) : la 
surface sensible en souffrirait. La 
robustesse et la fiabilité semblent bon- 
nes, mais nous n’avons pas martyrisé 
la tablette outre mesure. 


Dessiner avec 


les manettes de jeu ? 


Le dépliant d’utilisation indique que 
les adresses 54297 et 54298 du Com- 
modore 64 sont utilisées par cette 
tablette. Cela signifie que le logiciel 
Koala Painter doit pouvoir fonction- 
ner avec des ‘‘paddles””. Je vous laisse 
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7 es 

RÂCE À CET E , 
LA TROIS SIÈCLES 
D'AVANCE SUR 
MON ÉPOQUE ! 


toutefois imaginer les difficultés qu’il 
peut y avoir à tracer une ligne courbe 
en manipulant deux boutons à la fois ! 
Et d’ailleurs, le logiciel n’est pas vendu 
sans la tablette, alors. 


En revanche, la tablette est suscepti- 
ble de remplacer les boutons de jeu 
dans les logiciels qui font appel à eux. 
Voilà donc un éventail d’applications à 
explorer. 


Les dessins créés et mémorisés sur 
disquette peuvent être rappelés et affi- 
chés à l’écran par un programme Basic 
simple dont la liste est fournie dans le 
manuel d’utilisation. Il faut noter tou- 
tefois qu’un seul dessin occupe 40 
blocs sur la disquette. Le temps de 
chargement est donc long. On peut 
agrémenter ainsi un programme classi- 
que, mais il ne faut pas espérer réaliser 
un jeu d’aventure graphique un peu 


I 


long : une disquette ne suffirait pas. 


Et les enfants ? Ayant dû, par la 
force des choses, renoncer à apprendre 
l’anglais à ma fille, je me suis contenté 
de l’asseoir devant la tablette, Quel- 
ques explications ont suffi, juste assez 
pour découvrir qu’elle comprenait le 
Koala bien mieux que moi. Je me suis 
donc éclipsé discrètement et elle y est 
encore. Décidément, un jour ou 
l’autre, elle va m’obliger à faire l’achat 
d’un autre ordinateur. 


Une très bonne 


aide à la création 


Il faut souligner deux avantages 
majeurs de la tablette vis-à-vis du tra- 
ditionnel crayon optique : 

e la position horizontale est plus 
naturelle pour la main ; et la fatigue 
est bien moins grande qu’avec un 
crayon qui se déplace verticalement sur 
l’écran ; 

e il est superflu de pousser la lumino- 
sité du téléviseur pour compenser, 
éventuellement, un manque de sensibi- 
lité du crayon, et l’utilisateur n’a pas à 
s’approcher trop près de l’écran. 


Résultat : des yeux moins fatigués 
après un emploi prolongé. 

En résumé, Koala fournit, pour le 
prix de 1 300 FF environ, le moyen de 
passer de longues heures créatives. La 
qualité mécanique de l’ensemble est 
bonne, et les possibilités du logiciel 
très intéressantes. L’aspect éducatif est 
évident : les enfants ne s’en plaindront 
pas. Mais Koala apportera aussi au 
programmeur un moyen commode 
d’agrémenter ses propres programmes. 
Les possibilités encore peu explorées 
de la tablette graphique sont une porte 
grande ouverte sur l’imagination. 
Dommage tout de même qu’elle soit si 
petite pour d’autres applications. 


Et à quand la traduction des quel- 
ques pages de la notice ? 


Robin BOIS 
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ROUTINE UTILE 


LE ZX 81 À SA FENÊTRE 


L À douceur du climat californien y est 
peut-être pour quelque chose : 

les fenêtres sont très à la mode 

sur les petits ordinateurs professionnels. 

Chacun veut avoir les siennes, une façon comme 

une autre de prendre l'air ! 

Le ZX 81 relève le défi, Il offre une fenêtre 


mobile, de taille variable, 


pouvant être disposée à 


n‘importe quel endroit de l'écran. 


La consultation d’un tableau à 

deux dimensions est plus facile 
lorsqu'elle s’accompagne d’une 
fenêtre : elle fait défiler le contenu du 
tableau vers le haut, le bas, la droite ou 
la gauche. 


Grâce à la routine proposée ici, la 
création d’une telle fenêtre est possible 
sur le ZX 81. Elle aura des dimensions 
quelconques et pourra être placée 
n'importe où sur l’écran. Le reste étant 
bien entendu encore utilisable. 


On rentrera, en mode FAST, le 
programme 1. Il comprend l’implan- 
tation de la routine (lignes 1 à 29) et un 
exemple de fenêtre (lignes 30 à 240). A 
la suite, il faudra ajouter les deux lignes 
1000 SLOW et 1001 RAND USR 16516 
avant de le lancer par RUN. 


L’écran affiche alors la longueur de 
la chaîne C$, soit 490. Si cette valeur est 
différente, il ne reste plus qu’à vérifier 
les lignes 3 à 11 qui définissent cette 
chaîne avant de refaire RUN. 


Un appui sur CONT provoquera : 


l’affichage de 9/29. La ligne 1 prend 
alors l'allure indiquée par la figure 1 et 
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la liste ne se fait plus complètement car 
le caractère NEW LINE y est présent. 


Appuyons une nouvelle fois sur 
CONT. Si la routine a été chargée 
correctement, l’écran aura l’aspect de la 
figure 2. Si l’ordinateur se bloque, il 
faut le débrancher, récupérer le 


IL ETAT TEMPS QU'ILS 
M'INSTALLENT CETTE 
FENÊTRE , ÇA COMMEN. = 
GAIT À SENTIR 
LE RENFERMÉ 


programme (qui aura été sauvegardé sur 
cassette auparavant) et corriger l’erreur 
qui se situe dans une des lignes 1 à 29 
du programme 1. 


La recherche 


du message 


Une fois la représentation de la figure 
2 obtenue à l’écran (les lettres et leur 
position étant tirées au hasard, elles 
seront différentes), on peut utiliser les 
touches t — | -— pour chercher le 
message BONJOUR. La touche O 
permet de sortir de la routine. 


Il est possible d’utiliser cette routine 
pour n’importe quel tableau à deux 
dimensions. Les lignes 2 à 240 du 
programme n’ont servi qu’à 
l'implantation de cette routine et à 
montrer son fonctionnement dans un 
exemple. Elles peuvent donc être 
supprimées. 

Le nom du tableau est sans 
importance, mais il doit se trouver avant 
les variables, c’est-à-dire qu’il doit être 
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Programme 1 Figure 1 | | ; 
Programme pour ZX 81 Ce qu’est devenue la première ligne de la routine 
Auteur René Tisserand 

Copyright LIST et l’auteur 


QUE ET 


in Ji 


OBIRIURS 


Copie d’écran 


ET Et 
NES Tin 


nan Tin QE 


RCNRCIONRB OC TIEUICNRS LR Pi LICRIE IR u AUC: 


EE Eu 
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Programme 2 
Programme pour ZX 81 
Auteur René Tisserand 
Copyright LIST et l’auteur 


Fe TES CT CM ee Lt CU EE 


on 


TETE TS 
logs PAST CDS 
cu 

DANS) 


mm 


ARR HR HAN TI 
Fü 


CLOS CCE R CE CE LUE 67 | 
LES RLE Du 


dE 
1Jt 


CUDULEU El | 
RULPBOREUNER EEE E 
; ü 


[Fa 

Less 

! : Tr 
et 


4 


n 


PRINT AT 
FOR F=i 
FRINT AT 
HEXT F 


À 
LIRE) 


AAA TI 


FTIUTI CN CT 


Avant de lancer le programme, ajouter les lignes 1000 
SLOW et 1001 RAND USR 16516. 
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dimensionné juste après une instruction 
CLEAR (lignes 32 et 33 ). 


Il est également indispensable de 
modifier les variables (voir ie tableau 
des variables). Certaines peuvent avoir 
une valeur supérieure à 255. Dans ce 
cas, il faudra diviser cette valeur par 256 
et retenir le reste et le quotient comme 
adresses. Par exemple, si le nombre de 
colonnes du tableau est 300, comme 300 
= (1 x 256) + 44, on fait POKE 
16520, 44 et POKE 16521,1. 


Le programme 2 est un exemple 
d'utilisation avec un tableau 12 x 300. 
La routine permet d’utiliser les 24 lignes 
de l’écran. Pour modifier la vitesse de 
défilement, on agira sur la variable 


Tableau des variables 


TEM. La vitesse la plus grande est 
obtenue par POKE 16537,1. 


Au cours de l’entrée d’un programme 
Basic, la liste peut rester bloquée au 
milieu du 1 REM. Pour y remédier, il 
suffit de supprimer le NEW LINE par 
POKE 16598,0. Dans ce cas, la routine 
ne peut plus être utilisée sinon 
l'ordinateur se bloque. Et pour l'utiliser 


à nouveau, il faut rétablir le NEW LINE 
par POKE 16598,118. 


L'effet de défilement (scroll) est 
obtenu de la manière suivante : 
° un sous-programme (FENET) recopie 
dans une fenêtre de l’écran, une région 
du tableau dépendant des variables PLT 
et PCT ; 


eun programme principal (DEBUT) - 


Variabl Nombre | Adresse Adresse | Valeur | 
PAIE d’octets | décimale | hexadécimale 

Nombre de lignes du tableau 

(NLT) 2 16518 4086 suivant tableau 
Nombre de colonnes du 

tableau (NCT) 2 16520 4088 suivant tableau | 
Première ligne de la fenêtre 

écran (PLE) 1 16522 408A 0 à 23 
Première colonne de la fenêtre 

écran (PCE) 2 16523 408B 0 à 31 
Nombre de lignes de la fenêtre 

(NLE) 1 16525 408D 24 maxi 
Nombre de colonnes de la 

fenêtre (NCE) 2 16526 408E 32 maxi 
Première ligne du tableau 

(PLT) 2 16528 4090 0 
Première ligne maxi (PLM) 2 - À 16530 4092 (NLT) - (NLE) 
Première colonne du tableau 

(PCT) | 2 16532 4094 0 
Première colonne maxi (PCM) 2 16534 4096 (NCT) - (NCE) 
Nombre de lignes fenêtre 

restant (LR) 1 16536 4098 

Durée de la temporisation 

(TEM) 1 16537 4099 | 1 à 255 


(L PAUT : (A) ve caucucareice 


(8) uw chien 


CEST DÉBILE 
C'EST PAS CHER 


er 
ÇA PEUT RAPPORTER 


\ GRoS 


€ CHEN(B)EN RAPPORTANT LE 
POQUETTE À APPUYÉ SUR LES 
TOUCHES SANS LE 


VOUS FAITES 
PAREIL AVEC 


RIRE EXPRÈS BIEN € (© 


SÛR PUSQU'Il EST 


B8éTE : 
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repère la partie du tableau à recopier, 
appelle le sous-programme FENET, 
teste les touches de déplacement (les 
flèches), modifie éventuellement PLT et 
NLT et recommence. 


Ce programme principal boucle donc 
sur lui-même. Ainsi, sans appuyer sur 
aucune touche du clavier, le sous- 
programme sera appelé à chaque boucle 
et la fenêtre sera recopiée identique à 
elle-même. 


Si, au contraire, à chaque boucle, on 
appuie sur la flèche vers le haut (t), 
PLT sera modifié et la fenêtre sera 
décalée d’une ligne. 


Pour éviter de recopier sur l’écran une 
partie de la mémoire ne faisant plus 
partie du tableau, des tests de « fin de 
tableau » ont été prévus avant 
modification de PLT et PCT. 


Si la valeur de PLM a été mal 
calculée, on risque de «sortir du 
tableau ». Ce qui entraînera en général 
un brouillage de l’écran. 


René TISSERAND 


OUS LANCEZ LA CALCULATRICE (A) 
ALLUMEE (TRÉS IMPORTANT) 


CELUI qui A PERDU NE 
revers PLUS LA 

e TELE PENDANT 
ET 3Jjours! 
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PRÉSENTATION DU LANGAGE C 


UN NOUVEAU LANGAGE 
STRUCTURÉ 


; / L’évé t tière d - 

L suffit d Un NOUVEAU langage pour ranimer Mens 

l'espoir d’un monde meilleur chez tion de compilateurs C pour petits systé- 

ñ mes, c’est-à-dire de plus grande diffu- 

le programmeur aqguerri, sion. Historiquement, C représente 
VA Û l’abouti t d’ ite de I 

Le langage C, qu'on dit a 

déjà « performant et portable » on 

est prometteur sur ce point J compliqué, avec des algorithmes variés 


(manipulation de chaînes de caractères, 
de fichiers, tris, calculs d’adresse, récur- 
sivité). C’est pourquoi C promet d’être 
idéal pour le calcul numérique, le trai- 
tement de texte, la gestion de fichiers, 
les banques de données, la comptabi- 
lité... L’espoir dont il est porteur est lié 
aussi à sa portabilité : on sait que celle- 
ci impose des lourdeurs de rédaction 
dues aux liaisons avec le système. Mais 
baste ! Achevons les présentations. 


Une hiérarchie 


toute structurée 


Le langage C est un langage structuré 
comme Algol et PL/1 ou Pascal, mais 
destiné à la compilation : son but est de 
fournir un code machine très efficace 
pour éliminer presque totalement l’em- 
ploi de l’assembleur. 


Contrairement aux autres langages 
structurés, il apporte la possibilité de 
travailler à différents niveaux avec des 
instructions soit très élaborées, soit très 
proches du système. 


La structure d’ensemble linéaire 
impose la hiérarchie suivante : un pro- 
gramme est composé de fichiers compi- 
lés occupés par des fonctions et leurs 
arguments ; une fonction est définie par 
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LANGAGE C 


UN NOUVEAU LANGAGE STRUCTURÉ 


un en-tête puis un bloc ; l’en-tête est une 
déclaration descriptive (type, nom de la 
fonction, ‘arguments, type des argu- 
ments) ; le bloc délimité par des acco- 
lades contient la déclaration des varia- 
bles, les instructions, éventuellement 
d’autres blocs. 


Variables, pointeurs 


et instructions … 


On dispose de trois types de variables 
(entières = INT, réelles = FLOAT, de 
caractères = CHAR) avec le choix de 
quatre zones d’allocation mémoire : 
allocation dynamique des variables 
locales (AUTO), dans une zone fixe 
(EXTERN ou STATIC), ou encore 
dans un registre rapide du processeur 
(REGISTER). Ces variables sont sim- 
ples ou composées, en tableaux ou 
structures (RECORD du Pascal). Les 
pointeurs qui représentent des adresses 
se comportent presque comme des 
variables vis-à-vis des opérateurs : p = 
*’GROG affecte au pointeur p l’adresse 
de la variable &GROG tandis que x = *p 
affecte à la variable « x » la valeur de 
la variable pointée par p. L'utilisation 
des pointeurs est donc nettement plus 
poussée qu’en Pascal. Ils sont d’ailleurs 
nombreux : les opérateurs arithméti- 
ques (x, /, +, —, mod) logiques et de 
comparaison (&& (et), 11 (ou), = = 
(=), !=(#),...), classiques. D’autres 
sont spécifiques à C : + +,— —, incré- 
ment et décrément de variables entiè- 
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res; +=, —=,*— et /= opèrent 
directement sur la variable sans passer 
par l’accumulateur (ainsi x+ = y corres- 
pond à x = x+ y) ; (type) expression est 
appelé « cast » en C, il demande la con- 
version du résultat de l’expression sui- 
vant le type indiqué. 


Parmi les instructions, celles de struc- 
turation pour effectuer les tests, boucles 
et aiguillages sont classiques (if, if... 
else, if else if, for, while, do while, 
switch case). Cependant, l'expression 
conditionnelle est originale : expression 
1 ? expression 2 : expression 3 prend la 
valeur 2 si 1 est vraie, et 3 dans le cas 
contraire (exemple : (a > b}) ? a:b cal- 
cule sup (a,b)). 


L’instruction GOTO existe, mais elle 
est fortement déconseillée comme dans 
les autres langages structurés. Toute 
fonction est clôturée par RETURN, 
avec ou sans transmission de résultat. 
Il n’existe pas d'instruction d’entrée- 
sortie. En effet, ces actions sont réali- 
sées au moyen de fonctions de la librai- 
rie standard qui accompagne le système 
(éditeur, compilateur) ; là encore, des 
fonctions très élaborées (par exemple 
des sorties avec conversions spécifiables 
ou formatage) côtoient des fonctions de 
bas niveau, très proches du système. 


Enfin les instructions du préproces- 
seur (logiciel) sont reconnaissables au 
symbole # qui les précède. Il s’agit 
éventuellement de macro-définitions et 
de variables muettes (ou paramètres) et 
de directives de compilation (compila- 
tion conditionnelle). 


Le langage C se montre fort là où 


Tu Peux ’ 


ETE/NDRE. 


pêchent les autres langages. La rédac- - 
tion de logiciels volumineux exige la 
compilation, et C est capable d’appro- 
cher le processeur, donc d’obtenir les 
mêmes performances que le langage- 
machine, avec beaucoup moins d’ef- 
forts qu’en Assembleur ; il est surtout 
possible d’utiliser un programme tel 
quel si on change de machine (en théo- 
rie seulement, si on veut constater la dis- 
parité dans les réservations mémoires 
des variables pour chaque compilateur). 


| Facilement 


transposable 


Aujourd’hui C existe sur des systèmes 
dits « familiaux » (Dragon 64), ce qui 
est séduisant ; il ne faut pas perdre de 
vue qu’un langage dépend tout d’abord 
du système (plus de dix compilateurs C 
pour l’IMB PC) et de la configuration 
du matériel (un recours intensif au dis- 
que souple est très pénalisant). 


Il est évident que la transcription d’un 
algorithme est plus sûre et plus efficace 
en langage structuré. En outre, il est 
possible de reprendre ultérieurement le 
programme très facilement (mise à jour, 
évolution, etc.). Le langage C offre par 
rapport aux autres langages structurés 
l’avantage, non négligeable, d’éviter 
pratiquement tout recours aux routines 
en Assembleur. 


Claude NOWAKOWSKI 


J'AVAIS FAÏT 
UNE ERREUR 
EN COMPTANT 


LES MouToNS: 


CHIMHVLUS 
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_ LES DISQUETTES COMMODORE 


DES SECTEURS EN PISTE 


E Système d'Exploitation des Disquettes 


la piste 35 — la plus proche du centre 
— est la plus courte. C’est pour cette 


(SED) de Commodore permet de faire raison que le nombre de secteurs par 


beaucoup de choses a priori impossibles au 

prix d'un peu de méthode et de réflexion. 

Bien que plus spécialement destinées aux usagers 
du C.64, les applications présentées ici 


seront utilisables sans grandes 
modifications sur les machines plus 


‘anciennes’ : les gammes 3000 et 4000 
avec lecteurs doubles ou monodisques, ainsi 
que les VIC 20 équipés du lecteur 1540 


ou 1541, 


L'organisation des disquettes 

Commodore paraîtra transpa- 
rente à ceux qui sont familiarisés avec 
l’utilisation des fichiers à accès direct. 
Ils trouveront là un terrain connu. Pour 
les autres, il est préférable de progres- 
ser lentement. On commencera donc par 
une observation générale des enregistre- 
ments disque. 

Chaque face d’une disquette se trouve 
découpée, lors de son formatage, en une 
série de pistes concentriques, chacune 
étant elle-même découpée en secteurs 


Tableau 1 


successifs. Sur cha- 
que secteur, la tête 
d’enregistrement est 
susceptible d’ins- 
crire 256 octets, for- 
mant un bloc. Le 
tableau 1 indique le 
nombre de secteurs 
disponibles sur cha- 
que piste : la piste 1 
est la plus exté- 
rieure, donc la plus 
longue, tandis que 


Pistes et secteurs selon les types de lecteurs utilisés 


Type de lecteur Pistes Secteurs 
1 à 17 0 à 20 
2031 - 4040 18 à 24 0 à 18 
1540 - 1541 25 à 30 0 à 17 
31 à 35 0 à 16 

——— 
1 à 17 0 à 20 
18 à 24 0 à 19 
2040 - 3040 25 à 30 0 à 17 
31 à 35 0 à 16 
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piste va en diminuant de la piste 1 à la 
piste 35. Quant aux pistes 18 à 24, elles 
possèdent un secteur de plus lorsqu’elles 
sont issues d’un lecteur ancien modèle. 
Ceci explique certains problèmes de 
compatibilité. 

Commençons, en toute logique, par 
l’étude de cette piste centrale. Centrale 
à plus d’un titre puisqu’elle est non seu- 
lement placée au milieu de la disquette 
(sur la piste 18), mais aussi parce qu’elle 
est un pivot du fonctionnement du 
système. C’est elle en effet qui contient 
la liste des fichiers enregistrés, et diver- 
ses informations fondamentales sur ces 
fichiers. 


Toutefois, remettons à plus tard 
l’étude du premier secteur de cette piste. 


WAAAO000 !.. DEMAiN 
J'AjOUTE LA PISTE 
NS IS AU PROGRAMME 
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LES DISQUETTES COMMODORE 


SECTEURS EN PISTE 


Penchons-nous plutôt sur le second sec- 
teur, qui porte. le numéro 1 ! Ce sec- 
teur contient le premier bloc de 256 
octets renfermant les titres des fichiers 
présents sur la disquette. Nous avons 
l’habitude de prendre connaissance de 
son contenu en composant l’instruc- 
tion : LOAD‘‘$’,8. 


Qui est quoi 


qui fait quoi 


Le tableau 2 donne un exemple type 
de ce qu’il est possible d’obtenir dans 
un tel cas. En tout état de cause, si le 
système est capable de fournir ces infor- 
mations, c’est qu’il les lit quelque part. 
tout simplement sur la piste 18. Faisons 
donc une comparaison avec le tableau 
suivant (tableau 3). 


Ce tableau constitue une image des 
256 octets présents sur la piste 18, sec- 
teur 1 du disque. Les valeurs sont hexa- 
décimales. Les nombres de gauche sont 
décimaux, et représentent le numéro de 
l’octet qui suit immédiatement le * >”. 
Les caractères de droite sont la traduc- 
tion ASCII des 16 octets de chaque 
ligne. 

Les deux premiers octets du bloc (12 
et 04) représentent respectivement le 
numéro de piste et de secteur du bloc 
suivant ; bloc qui contient évidemment 
la suite du catalogue (piste 18, secteur 
4 en décimal). 


L’octet suivant (octet 2) a pour valeur 
82 : il indique que le premier fichier est 


Tableau 2 
Le catalogue classique 


un PRG. Mais d’autres valeurs sont 
possibles. Elles sont présentées dans le 
tableau 4. Ainsi, l’octet 34 (troisième 
ligne) indique la présence d’un fichier 
SEQ, l’octet 66 (cinquième ligne) indi- 
que un fichier REL., tandis que l’octet 
98 (septième ligne) indique un fichier qui 
a été détruit. Il n’apparaît donc pas au 
catalogue. 


Les quatrième et cinquième octets 
(octets 3 et 4) représentent, comme les 
deux premiers octets (octets 0 et 1), un 
numéro de piste, et un numéro de sec- 
teur. Il s’agit de l'emplacement physi- 
que où commence le fichier. Ici, les 
valeurs 11 et 00 indiquent un début sur 
la piste 17, secteur 0. Cette information 
n'apparaît pas au catalogue. 


Les 16 octets suivants (octets 5 à 20) 
contiennent le titre du fichier, sous 
forme ASCII. Si le titre a moins de 16 
caractères, il est complété par une suite 
d’espaces ‘‘shiftés”” (code 160, ou AO en 
hexa). 


Les octets 21 à 29 sont toujours à 0, 
sauf dans le cas d’un fichier REL. Cer- 
tains sont remplacés alors par un poin- 


Valeur 


00 


81 
82 
83 
84 


Tableau 4 
Type de fichier associé 
à la valeur de l’octet 


O MOSS EME PISTE 12 SECTEUR 1 
21 "“FICH PROG" PRG A > 12 G4 82 11 Où 46 49 43 48 2ù 5a 
4 "FICH SEQ" SEQ 16 > AG AG AD AG AG AR QG Ga aa aa a@ 
29 "FICH REL" REL 22 > Q@ QR 81 13 GR 46 43 42 48 2a 52 
8 "PROG S° FRG 48 > AG A@ AG AR AG GG où AG aa aa ça 
€ "PROG 6" FRG 64 > Où Qu Bd 13 a2 46 49 43 48 2a 52 
12 "PROG 7" PRG Sa > AG An AG AG AG 17 OA 64 A8 an aû 
12 "PROG 8" PRG 96 > Q0 6@ AA 13 O3 SA S2 4F 47 2Q 44 
12 "PROG 3* FRG 112 > Sd AG Ad AG A U@ aa Q6 a@ aa aa 
577 BLOCKS FREE. 126 > 06 AG 82 18 RQ SA 52 4F 47 20 25 
144 > AG AB AG AQ AG a8 aa Ga e@ aa aa 
167 > OÙ QA &2 19 A1 Sù 52 4F 47 2û 36 
176 > A8 AU RQ AG AG AR Qù eù eù an aa 
192 > 06 GR 82 18 QS SR 52 4F 47 2@ 27 
; Tableau 3 288 > AQ AG AQ AG AA AA GA BG aa aa aa 
Le catalogue tel qu’il est 224 > Où GA 2 14 A4 SA S2 4F 47 20 &8 
… sur la disquette 248 > A8 AG A AA AA A0 àù où où aa aa 
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teur piste/secteur, et un indicateur de - 


longueur des enregistrements. Il en est 
ainsi des octets 85 à 87. 


Les octets 30 et 31 indiquent le nom- 
bre de blocs occupés par le fichier sur 
la disquette, sous la forme poids faible- 
poids fort. Le programme FICH PROG 
occupe donc 00 15 blocs, soit 21 blocs 
en décimal. C’est bien ce qu’indique le 
catalogue. 


Les octets 32 à 256 répondent aux 
mêmes schémas. Un maximum de huit 
fichiers peuvent figurer dans un bloc- 
disque ; les titres suivants sont inscrits 
un peu plus loin sur la piste 18. Il reste 
que bien des choses, inscrites sur le sup- 
port magnétique, sont encore cachées à 
l'utilisateur … 


L’instruction LOAD‘‘$”,8 a pour 
effet de charger en mémoire le contenu 
de la piste 18, provoquant du même 
coup la destruction du programme pré- 
sent en mémoire lors du chargement. 


Le catalogue 


de la disquette 


Connaissant maintenant la structure 
des blocs de cette piste, nous alions pou- 
voir utiliser les commandes du SED 
pour afficher le catalogue à l’écran, sans 
perdre le programme en mémoire. Quel- 
ques lignes nécessaires sont fournies par 
le programme 1. On peut les introduire 
mais en respectant scrupuleusement la 
numérotation. 


n....FICH PROG... 

QQ GO À 15 QG 1 enssse 

45 Si AG AG AG .. 

QG QG AO Ed GE 5 ss unvns pusnsuss 

45 4C AB AG RQ  : .....FICH REL... 
5 


-….FICH SEG,,, 


a 8 aû 10 aa PES ELIEEET …. 
4 Sd S2 59 49 5 ..... PROG DETRUX 
ag Ga QQ 68 AB : T...... rssvuse 
AD AG AG AG AG 5 ...,..PROG 5. ,.., 
aa GR GG A8 QAR 2: ......... us. 


Eur PROG 6... 

1... PROG 7... 

Où AA QG AC GG Or mms mmnonsnne us 
3 vo... PROG Sous 
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12@ 
13ù 
zaa 
ziu 
zza 
z3a 
24m 
ea 
z6a 
zra 
28 
29a 
3aë& 
z1@ 
32û 
ax@ 
34 
3sa 
ET 
37@ 
sea 
33 
4aa 
4ia 
424 
4x 
44a 
45a 
4sa 
4F7u 
4ea 
49 
saa 
Sie 
22a 
s3a 
S4a 
ssa 
sea 
sre 
sea 
sou 
6ç0g 
6ia 
éza 
62a 
é4g 
EsSsa 
esx 
67a 


REM LECTURE OÙ CATALOGUE 
ZH=CHRSE, > 1P=18:S=1 

OPEN 15,8,1S,"Iu" 

OPEN 2,8,2,"#" 


: 

PRINT#15,"L1"32:@PrS 
PRINT#1S5,"B-P"':23@ 
GET#2,E$,H$ 

PF=sfSC<RS+2$) 
SeASCCHS+2Z$) 

FOR X=Q@ TO 7 
PRINT#15,"B-P"32»#K2242 
GET#2,C$ 

IF ASCECS+2$)=Q THEN 38a 
PRINT#1S,"B-P"32XMa2+5S 
NF$=n 

FÜR G=1 TO 16 

GET#2,C$ 

IF ASCLCS+2Z#2<>16Q THEN NF$=NFS+CS 
NEXT Q 


REM 

PRINT'æ "pNF#3SPCC18-LENCNF#2D2 y 
NEXT x 

IF P THEN 21@ 

3 

CLOSE 2 

CLOSE 15 

END 


RE 4eme mes ee 4e € 6 EEE ED D EE 
REM % UTILITAIRE DISQUE NOG.1  % 
REM # CATALOGLIE AUTO-CHARGEUR, %# 
RER een he  EA DEDE DRE RENEE EOE 
PRINT"Q":POKE S2280,@:POKE S22&1,2 
WH=-1:50$=" 2m œ":S1S$S=" EN 

DIN F#c46 

E$S=CHREE. D Pal iS=i 

OPEN 15,8,15,"1@" 

OPEN %,8,2,"#" 
FRINT#15,"U1"32:@3P3S 
PRINT#1S,"B-F";27r@ 

GET#2,8$,H$ 

P=ASCÉE$+Z$ à 

S=ASCEHS+Z#) 

FOR xX=û TO 7 
FRINT#1S."B-P"32rXMa2+2 

GET#2,C$ 

IF ASCKC$S+Z$2=0 THEN 23R@ 
PRINT#1S,"B-P"323:NMGZ+S 

HF$="" 

FÜR Q=1 TO 16 

GET#2Z,C$ 

IF ASCCCS+2#2<7168 THEN HF$=NFS$+C$ 
NEXT & 

Wæli+1:F#$CH>SNFS 


PRINT" A "NF 3 SPC IS-LENCNES 2 5 > 
MEXT X 

IF P THEN 214 

CLOSE 2 

CLOSE 15 


C 
REM CHOIX OÙ PROG 

PRINT'SN"SGS y 

NP=@ 

R=PEEK(197 3 

IF Red THEN 56@ 

IF R<3 THEN 520 

IF R=1 THEN 61a 

GQTO 47@ 

REMH DESCENTE 

HP=NP+1:1F NP3WH THEN NP=HiGOTO 47@ 
PRINT S1#3SPCC 185 :SA$ 7» 

GOTQ 592 

REM MONTEE 

HPeNP-1:1F NP<Q THEN 45@ 

PRINT S1$:"7}" }SPCC18) 508$ > 

FOR G=û TO GMINEXT Q:GOTO 47@ 


RE CHARGEMENT OÙ PROGRAMME 


PRINT TL ORAD"CHRS 6340 ;F$ CMP :CHR$SCA4D;",R,1" 


PRINT" MaaRLIN" 

FOKE 631,19 

FOR G=622 TO 636:POKE Ü,12:NEXT 
PQKE 198,6 

END 
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Programme 1 


Lecture d: catalogue __ 


Programme 2 


Catalogue auto-c 


largeur 


Le programme 1 ligne par ligne 


ligne 170 : la piste à lire porte le 
numéro 18, le secteur a le numéro 1 ; 

ligne 180 : on ouvre le canal de com- 
mande sous le numéro 15, eninitialisant 
la disquette ; 

ligne 190 : le canal de données est 
ouvert sous le numéro 2, avec réservation 
d’une mémoire-tampon du lecteur. Les 
256 octets lus y seront placés, pour être 
utilisés par la suite dans le programme : 

ligne 210 : on envoie une commande 
de lecture sur le canal 2, lecteur 0, piste 
18, secteur 1 ; 

ligne 220 : on indique que l'acquisition 
des octets qui sont maintenant présents 
dans le tampon, doit se faire à partir du 
premier octet (octet 0) ; 

lignes 230 à 250 : les deux premiers 
octets qui sont le numéro de piste et le 
numéro de secteur sont récupérés. Ils 
seront à lire ensuite ; 

ligne 260 : huit titres au maximum sont 
à lire dans chaque bloc ; 

lignes 270 à 290 : on vérifie pour cha- 
que titre lu l’octet qui indique le type du 
fichier. S’il s’agit d’un 0, le fichier est 
détruit et on passe au titre suivant ; 

lignes 300 à 370 : si l’octet n’est pas à 
0, on récupère le nom du fichier qui sera 
affiché à l’écran ; 

ligne 390 : si la valeur de P (numéro 
de piste suivant) n’est pas 0, le catalogue 
est incomplet, et on recommence le pro- 
cessus pour lire le bloc suivant (secteur 
S) ; 

lignes 410 à 430 : si P est à 0, tout est 


terminé, et les deux canaux ouverts sont 
soigneusement refermés. 


Ce programme 1 peut être inclus sans 
difficulté comme sous-programme dans 
un programme plus complet. Une appli- 
cation immédiate est proposée par le 
programme 2 (auto-chargeur). 


Le programme 1 pourra être placé sur 
toutes vos disquettes sous un titre quel- 
conque ; par exemple “MENU”. Il 
vous permettra d’afficher sur l’écran le 
catalogue de la disquette, et par la sim- 
ple manipulation des touches F1, F7 et 
RETURN, de sélectionner et de lancer 
dans la foulée le programme de votre 
choix. 


Il y a tout de même une limitation due 
à la taille de l’écran, qui impose de ne 
pas dépasser 46 titres sur la disquette. 
Mais ce cas est assez rare. 


Il reste à voir (c’est pour une pro- 
chaine fois) comment obtenir un cata- 
logue complet, comportant, en plus des 
informations habituelles, tout ce que 
l’on peut savoir sur les fichiers présents 
sur la disquette : emplacement physique 
sur le disque, adresses d’implantation en 
mémoire, fichiers détruits, etc. 


Jean-Pièrre LALEVÉE 
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LIST À TESTÉ 


LE BASIC DU BBC 


ABRIQUÉ par Acorn, le BBC nous vient 
d'Outre-Manche. Il est muni 
d'un Basic étonnant : à la fois riche et rapide. 
Il est importé par Sterco International et 
coûte environ 6000 FF ttc. 


A la mise sous tension du BBC, 

un bip se fait entendre, et 
s’affiche alors « BBC Computer 32K ». 
Nous sommes donc devant un modèle 
B, le modèle A ne faisant que 16 Koc- 
tets. Un PRINT HIMEM-LOMEM 
nous précise qu’en fait, seulement 28158 
octets sont disponibles. 


Avec la présence au clavier des qua- 
tre curseurs, on peut penser avoir un 
éditeur plein écran. Il n’en est rien, et 
la touche COPY vient heureusement à 
notre secours. Elle est d’un emploi un 
peu déconcertant au début, maïs s'avère 
fort commode à l’usage. L’appui sur 
l’une des quatre touches fléchées affi- 
che un pavé blanc à l’endroit où était 
le curseur clignotant, et le nouveau cur- 
seur peut être déplacé à volonté : la tou- 
che COPY copiera alors au niveau du 
pavé blanc le caractère pointé par le cur- 
seur. Grâce à l’autorepeat des touches, 
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on peut recopier rapidement des lignes 
déjà introduites (et encore présentes à 
l'écran) et les modifier commodément. 


Une sensation désagréable gêne au 
début : la première ligne de l’écran est 
tronquée sur le moniteur, et n’est donc 
guère visible. Tous les essais de réglage 
du moniteur sont inopérants, et seule 
une plongée dans la documentation 
nous apprend que #*TV 255 descend 
l'écran d’une ligne. 


Un appui sur BREAK est nécessaire 
après *TV 255 pour valider le change- 
ment d’écran. La vingt-cinquième et 
dernière ligne descend elle aussi comme 
les 24 autres, mais reste visible. 


Pour arrêter un programme en cours, 
il faut appuyer sur ESCAPE. Un sim- 
ple BREAK arrête lui aussi le pro- 
gramme, mais il est plus violent : il réi- 
nitialise la machine. Après lui, un LIST 


Le clavier du BBC ; 
BBC pour British 


Broadcasting Corporation 


reste inopérant, le programme ayant été 
apparemment effacé. Toutefois, l’ordre 
OLD permet de le récupérer. 


L’entrée et la mise au point de pro- 
grammes sont facilitées par la présence 
de AUTO, DELETE, et RENUMBER. 
Avec TRACE ON et TRACE OFF, il 
est possible de suivre l’exécution des 
programmes. De plus, TRACE 130 
indique que seules les lignes inférieures 
à 130 seront en mode Trace. 


Les numéros de ligne peuvent aller de 
0 à 32767, et non pas jusqu’à 65535 
comme sur beaucoup de machines. La 
plupart des instructions Basic peuvent 
être abrégées : ainsi P. pour PRINT, L. 
pour LIST, REN. pour RENUMBER, 
etc. mais ce Basic ne comprend pas les 
ordres écrits en minuscules. 


| Souple avec 


les variables 


Bien sûr, 1 5 RETURN efface la ligne 
15, mais 1 5 SPACE RETURN donne 
une ligne contenant un espace : cela per- 
met de séparer commodément les par- 
ties du programme, sans avoir à utili- 
ser de REM. 


Le déroulement d’une liste à l’écran 
ne semble pas être arrêté par l’appui sur 
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une touche. Toutefois CTRL N met le 
BBC en mode page : dès qu’un écran est 
rempli, les diodes Caps Lock et Shift 
Lock s'affichent simultanément, et le 
déroulement s’arrête. L’appui sur Shift 
le libère, et la liste continue jusqu’à la 
page suivante. CTRL O remet le BBC 
en mode de défilement normal. 


Le BBC est particulièrement souple 
avec les variables : leurs noms ne sont 
pas limités en longueur. Les variables 
alphanumériques peuvent contenir 
jusqu’à 255 caractères. Les entiers sont 
stockés sur 4 octets, et peuvent donc être 
compris entre —2 147 483 648 et 
2 147 483 647 : c’est bien mieux que les 
— 32 768 à 32 767 auxquels nous étions 
habitués. Les variables A%, B%, …, 
Z% sont en permanence allouées en 
mémoire vive, et les ordres RUN et 
NEW ne les effacent pas. 


Une curiosité : après avoir fait N% 
=2 147 483 647, P.N% affiche 
2.14748365E9. En notation exponen- 
tielle, et en perdant un chiffre signifi- 
catif ?! Mais non, il existe une variable 
spéciale nommée @ % qui permet de 
préciser le format de PRINT : le nom- 
bre de chiffres significatifs, la notation 
exponentielle ou non, le nombre de 
chiffres après la virgule. Grâce à un 
@ % = &AO0B (& pour l’hexadécimal), 
P. N% affichera 2 147 483 647. 


Les réels sont stockés sur cinq octets, 
et peuvent traiter des nombres entre 
1,7 X 1058 et 2,9 x 10% (de même pour 
les nombres négatifs). 


Les dimensionnements ne sont pas 
limités. On peut donc trouver des DIM 
A(3,3,3,3,3), par exemple. 


L’exécution de la ligne 10 INPUT N : 
PRINT N ne provoquera pas d’erreur 
après l’introduction de COUCOU dans 
N, mais affichera « O0». Quant à 
PRINT var, où var est une variable qui 
n’a jamais été initialisée, il donnera 
« No such variable » au lieu du 0 
traditionnel. 


Les instructions GET ou GETS$ atten- 
dent l’appui d’une touche, la première 
retournant le code ASCII. Avec 
INKEY(t) ou INKEY$(t), l’appui d’une 
touche est attendu seulement pendant 
t centièmes de seconde. 


L'introduction interne des données 
est possible grâce aux classiques READ, 
DATA et RESTORE. 


La présence de FOR... NEXT et de 
IF... THEN... ELSE est normale. Celle 
de REPEAT... UNTIL l’est déjà moins. 
Mais surtout, c’est la définition des 
fonctions et des procédures qui est ici 
vraiment extraordinaire. 


Commençons par les fonctions. Par 
exemple, celles de la forme DEF 
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FNMOY (A,B) = (A +B)/2 sont déjà 
connues. Un P.FNMOY (2,3) affiche 
2.5. Ici, en plus, la définition peut s’éta- 
ler sur plusieurs lignes. Et des variables 
peuvent y être déclarées locales. Voici 
par exemple ce que cela peut donner : 
100 DEF FN PUISS(A,N) 
110 LOCAL I,J 
120 =} 
130 FOR I=1 TO N:J = AxJ:NEXTI 
140 =J 

Tout appel de FNPUISS (A,N) élè- 
vera À à la puissance N. Inutile alors de 
faire attention à l’emploi de I et J dans 
le reste du programme, ces variables ont 
été déclarées locales dans la fonction. 


Des conversions 


d'angle aisées 


La récursivité est possible, et la fonc- 
tion factorielle se programme 
facilement : 

100 DEF FN FACT{(N) 
110 IF N=1 THEN=N ELSE= 
N+xFNFACT (N-1) 


Quant aux procédures, leur définition 
commence par DEF PROC, et doit se 
terminer par ENDPROC. Là aussi 
variables locales et récursivité sont 
possibles. 


Les GOTO, GOSUB, ON... GOTO, 
ON... GOSUB ont la particularité de 
pouvoir employer des numéros de ligne 
calculés. Ainsi GOTO 100+10+L est 
équivalent à ON L GOTO 110, 120, 
130,... A employer toutefois avec pré- 
caution, un RENUMBER devenant 
catastrophique. 


Les opérations arithmétiques sont au 
nombre de sept : +, —,x,/, { , DIV, 
MOD. DIV donne le résultat d’une divi- 
sion entière, alors que MOD en donne 
le reste. Sur BBC, la fonction TIME 
fournit le temps en centièmes de seconde 
et l’affichage en heures-minutes- 
secondes peut, par exemple, s’obtenir 
par : 

10 S=(TIME DIV 100) MOD 60 

20 M (TIME DIV 6000) MOD 60 

30 H=(TIME DIV 360 000) MOD 24 

40 PRINTH ;«H»;, M; «M » : 
S:«S » 


Les chaînes alphanumériques sont 
aisément manipulées par LEFTS$, 
MID$, RIGHTS. De plus INSTR 
recherche la position d’une chaîne à l’in- 
térieur d’une autre. La répétition des 
chaînes est possible, mais les arguments 
sont inversés par rapport à d’autres 
Basic : il faudra faire A$ — STRINGS 
(2,« COU »), par exemple. 


Liste des mots du Basic du BBC 


OPENOUT 
OP. 


ENVELOPE 
EOR 
EOF 


USR 
VAL 
VDU 
VPOS 
WIDTH 
*CAT_ 
*DISC 
-#DISK_ 
 *EXEC 
*xFX 
*KEY 
*LOAD 
+«MOTOR 
*NET 
*OPT 
*ROM 
*RUN 
*SAVE 
*SPOOL 
*TAPE 
»*TELESOFT 
 *TERMINAL 
TV 
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LIST A TESTÉ 


_ LE BASIC DU BBC 


Le BBC possède un évaluateur de cal- 
cul. A$=« 2+3+*SQR(16) » suivi de 
PRINT EVAL(AS$) affichera 14. Vrai- 
ment commode ! Les fonctions logiques 
sont là avec NOT, AND, OR, ainsi que 
le ou exclusif noté curieusement EOR 
(au lieu du XOR habituel). Pour la tri- 
gonométrie, tout y est, même ASN (arc 
sinus) et ACS (arc cosinus) en plus de 
ATN. Les conversions sont extrême- 
ment facilitées : SIN(RAD(90)) donnera 
1, alors que DEG(PI) donnera 180. 


La gestion des erreurs est elle aussi 
fort complète avec ON ERROR GOTO, 
ERR, ERL, et même REPORT qui affi- 
che le message explicite correspondant 
à la dernière erreur commise. 


Il est possible de demander un af- 
fichage graphique couleur par l’instruc- 


= Fiche technique du BBC 
Distributeur : Sterco International 
Prix : environ 6 000 FFttc 
Mémoire vive : 32 Koctets (modèle B) 
- Mémoire morte : 32 Koctets 
Lange: Base, Aneabe, Forth {disponible en 
logiciel) 
Affichage graphique : 160, 320 ou 640 sur 256 
points selon le mode couleur : écran vir- 
e … tuel de 1280 sur 1024 points 
Variables : jusqu'à 255 caractères pour les varia- 
bles dphanumériques ; de 
— 2147483648 à 2147483647 pour les 
entiers; de 1, 7x 10 à 29x10" 
pour ls réels 
Nombre de mots da Basic : 138 


tion MODE. Les trois principaux modes 
sur le modèle B sont 640 x 256 points 
avec 2 couleurs, 320 x 256 points avec 
4 couleurs, et 160 x 256 points avec 16 
couleurs. Les caractères sont toujours 
sur 32 lignes, mais s’étalent suivant 80, 
40, ou 20 colonnes. Le gros inconvé- 
nient de ces trois modes est de deman- 
der 20 Koctets de mémoire vive, ce qui 
ne laisse plus que 8 Koctets à l’utilisa- 
teur. Il y a cependant des modes inter- 
médiaires, comme par exemple 
160 X 256 avec 4 couleurs qui occupe 10 
Koctets de mémoire vive. 

En fait, même dans le mode 16 cou- 
leurs, 8 sont réellement utilisables. Les 
8 autres ne sont que des clignotements 
entre une couleur et sa complémentaire. 
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Par exemple COLOUR 11 fera afficher 
alternativement jaune et bleu. 


Quel que soit le mode choisi, l’écran 
est toujours virtuellement composé de 
1280 x 1024 points, l’origine étant en 
bas à gauche. Ce sera fortement appré- 
cié par celui qui programme : il n’aura 
pas à recalculer la position des tracés s’il 
veut changer de mode. 


Le principal ordre d’affichage graphi- 
que est PLOT qui trace points, lignes, 
triangles, en continu ou en pointillé. Et 
l’état d’un point est demandé par 
POINT(x,y). 

Pour l’affichage des caractères, le 
PRINT TAB(x) est, bien sûr, connu, 
mais le PRINT TAB4(x, y) l’est moins et 
s’avère fort logique. 


L'étrange fonction 


COUNT 


Sur les autres machines les PRINT 
CHRS$(x;) ; CHR$(%) ;.. sont pénibles 


-et fastidieux à rentrer pour celui qui 


programme. Sur le BBC, cet ordre existe 
aussi mais il peut être avantageusement 
remplacé par VDU x;, x. Il suffisait 
d’y penser ! Ainsi VDU 24 suivi de qua- 
tre doubles octets définit une fenêtre 
graphique ; de même, VDU 28 définit 
une fenêtre de texte. Par la suite, les 
PLOT n’afficheront que dans la pre- 
mière fenêtre, et les PRINT dans la 
seconde. Vraiment très commode pour 
séparer texte et image sur un même 
écran. 


A noter, la présence de l’étrange fonc- 
tion COUNT qui fournit le nombre de 
caractères affichés depuis le dernier 
RETURN. 


Le BBC dispose d’un haut-parleur 
intégré branché sur un circuit intégré à 
3 canaux, plus un canal de bruit. Cela 
peut être simplement commandé par 
l’ordre SOUND suivi de 4 paramètres : 
numéro de canal, amplitude, hauteur, 
et durée. Et avec l’ordre ENVELOPE 
suivi de 14 paramètres (pour définir 
complètement le son à produire), le 
BBC devient un véritable synthétiseur. 

Les instructions PEEK et POKE ne 


sont pas présentes, mais sont remplacées 
par un point d’interrogation. Un 


N = PEEK(A) s'écrit N = ?A, alors que 
POKE A,N devient?A =N. Pour agir 
sur 4 octets à la fois (un entier Basic est 
stocké ainsi), ce n’est plus « ? » mais 
«! ». 


La conversion en hexadécimal se fait 
par « VW», et une liste hexa de la 
mémoire s’obtient par FOR A=0 TO 
&FFFF:PRINT®A,vV?A:NEXT A. 


Les variables HIMEM, LOMEM, 
TOP et PAGE fournissent les différents 
pointeurs de stockage du programme 
Basic et de la mémoire vive disponible. 
Ils peuvent être (sauf TOP) réinitialisés 
au gré de l’utilisateur. De l’espace 
mémoire peut-être réservé pour le 
langage-machine par un emploi spécial 
de l’ordre DIM. 

Mais la particularité intéressante du 
BBC, que l’on retrouve sur les autres 
Acorn, est de pouvoir intégrer de l’As- 
sembleur au milieu d’un programme 
Basic. Il suffit que le programme-source 
6502 soit précédé d’un « [ » pour que 
l’interpréteur Basic sache que ce qui suit 
est de l’ Assembleur. Logiquement, un 
« ] » doit clore le source. Les référen- 
ces symboliques sont possibles, et la sor- 
tie ou non des erreurs d’assemblage et 
du listing du code assemblé peut être 
commandé par OPT. 


L’appel d’un programme en langage- 
machine peut se faire par CALL ou 
USR suivant le choix de passage des 
paramètres. 


On a aussi accès directement à cer- 
tains ordres de l’OS (Operating 
System) : l’ordre est alors précédé d’un 
astérisque « * ». Nous avons déjà vu 
*TV. Par *KEY, il est possible de défi- 
nir les touches de fonction (touches rou- 
ges du clavier). Par *LOAD, *SAVE, 
*RUN, on peut gérer des fichiers 
langage-machine. Par *FX, on règle les 
débits de l’interface RS-423, l’auto- 
repeat des touches, etc. 


En conclusion, le Basic du BBC est 
l’un des Basic les plus complets et les 
plus rapides (1). Il est fort original, 
peut-être même trop : il s'éloigne sou- 
vent des « standards ». L’obligatoire 
rançon d’un Basic différent. 


Christian BOYER 


(1) Voir les dix tests de LIST appliqués au BBC, 


pages 59 et 60. 
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PROGRAMME PERFECTIONNÉ 


UN TIC-TAC-TOE 
IMBATTABLE 


NS le numéro 2 de LIST, un programme de 
tic-tac-toe était présenté, II était 
autodidacte : au début, il jouait à un niveau 
de rare nullité, puis il allait en se perfectionnant 
plus ou moins rapidement suivant le niveau du 
jeu. Cette fois-ci, le problème est pris à l'envers : 
le programme conçu joue tout de suite à la 


perfection ! 


Pour qu’un programme rende un 

ordinateur imbattable au tic-tac- 
toe, on peut imaginer une méthode qui 
consiste à explorer toutes les combinai- 
sons de coups possibles. 


Livrons-nous à un petit calcul. Au 
début d’une partie, les neuf cases de 
l’échiquier sont vides (les règles du jeu 
sont rappelées en encadré page 
suivante). 


Le premier joueur a le choix entre ces 
neuf cases. Quand il a joué, son adver- 
saire ne peut plus opter qu’entre huit 
cases. Restent alors sept cases entre les- 
quelles le premier joueur doit choisir son 
coup. Et ainsi de suite. 

Il y a donc a priori 9X8xX7X6XS5 
X4X3X2%X 1 (soit 9!, prononcer ‘‘fac- 
torielle de neuf””) déroulements de par- 
ties possibles, soit encore 362 880. Il ne 
s’agit là que de parties mais chacune est 
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composée de coups. Le calcul montre 
que le nombre de coups à simuler serait 
en fait de: (91/8!)+(91/71)+...+ 
(9!/1!)= 623 529. 


Un seul Coup 


gagnant suffit 


Plusieurs remarques s’imposent : 


certaines parties sont terminées avant 
que le jeu ne soit ‘“‘plein”” ; il est alors 
inutile de continuer l’exploration, ce qui 
réduit le nombre de coups à simuler ; 
e si l’on explore l’arbre des coups pos- 
sibles grâce à l’algorithme minimax 
alpha-bêta, il sera possible d’élaguer 
certaines branches sans aucune perte 


MOi , LE Tic -TAC-TOE , SA NE 
M'INTÉRESSE PAS _ CE QUE 
DE VOUDRAIS , C'EST UN 

PROGRAMME: MBATTABLE AU 


TiERCÉ ! 


d’information (élagage alpha-bêta) ; 

e si l’on explore chaque groupe de 
coups dans un ordre cohérent — centre, 
coins, puis bords (1) — on atteint plus 
rapidement ceux qui donnent la victoire 
à un niveau donné. Lorsqu’on trouve un 
coup gagnant parmi un groupe de 
coups, il est inutile d’explorer les autres. 
On pourrait au mieux trouver un autre 
coup gagnant. Un seul suffit. De même, 
l’élagage alpha-bêta (voir bibliographie 
page suivante) aura lieu, en général, plus 
rapidement que si les coups étaient 
essayés dans un ordre quelconque. 


En tenant compte de ces remarques, 


(1) A ce jeu, les meilleurs coups sont plus souvent 
au centre que dans les coins, et plus souvent dans 
les coins que sur les bords. 
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PROGRAMME PERFECTIONNÉ 


UN TIC-TAC-TOE IMBATTABLE 


Règles du tic-tac-t0e 


L E jeu se dispute sur un échiquier de 
trois cases sur trois. Îl oppose deux 
joueurs qui déposent, chacun à son tour, 
un pion à sa couleur sur une case encore 
vide. On gagne en alignant trois pions de 
son camp soit horizontalement, soit ver- 
ticalement, soit en diagonale, Sur la 
figure ci-dessous, la victoire est allée aux 
Y. : 


le programme gagne énormément de 
temps. Ainsi quand l’ordinateur com- 
mence, il trouve son premier coup en 
étudiant ‘‘seulement”” 16 533 positions 
différentes au lieu des 623 529 
théoriques. 


Si vous commencez la partie, l’ordi- 
nateur se trouve en face d’un jeu qui ne 
contient plus que 8 cases vides et il n’a 
donc plus que 4 200 positions à étudier. 
C’est encore trop long. Et puis, lorsque 
l’on a découvert la perfection, il est inu- 
tile de la redécouvrir. C’est pourquoi, 
pour son premier coup (celui qui 
demande le plus de calculs), l’ordinateur 
vous propose de choisir pour lui entre 
un premier coup ‘‘de mémoire””, c’est- 
à-dire instantané, ou un premier coup 
étudié parmi les 16 533. 


Une autre option intéressante vous est 
proposée : la possibilité de voir s’affi- 
cher chaque position étudiée par la 
machine. Bien sûr, cela augmentera le 
temps de la recherche. Et à chaque fois 
que l’ordinateur annoncera son coup, il 
donnera le nombre de positions qu’il a 
étudiées pour arriver à ce résultat. 
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L’ARBRE EXPLORÉ 


Un exemple d’exploration d’un arbre par le programme minimax est donné ci- 
dessous. La position de départ est fournie par la première grille, les chiffres cor- 
respondent à l’ordre d’exploration des coups. 


y YO 


Le coup 13 mène à la victoire, mais seulement si l’adversaire joue le coup 12 
au niveau supérieur : ce serait une erreur de sa part. La position initiale ne vaut 


donc déjà pas mieux que le match nul. 


Bibliographie 

Une bonne description de l'algorithme 
alpha-bêta se trouve dans les livres sui- 
vants : ‘“‘La programmation des jeux de 
réflexion”’ de Louis Jardonnet et “‘Tech- 
niques de programmation des jeux”” de 
David Lévy (tous deux édités par PSI). 


Jouer parfaitement ne signifie pas 
seulement trouver une combinaison de 
coups qui mène à la victoire ; cela signi- 
fie aussi trouver celle qui y mène le plus 
rapidement. Ce programme obtient un 
tel résultat en mettant une note d’autant 
plus positive à une position gagnante 
qu’elle intervient à un niveau peu pro- 
fond dans l’exploration de l’arbre. 


Thierry LÉVY-ABÉGNOLI 


Meilleur coup au centre 


Le jeu du tic-tac-toe pourrait être qua- 
lifié de jeu des ‘matchs nuls”. Il est en 
effet possible pour chacun des deux 
joueurs d’arriver, au pire, au match nul. 
Un programme qui fonctionne selon l’al- 
gorithme alpha-bêta suppose que l’adver- 
saire ne commet pas d’erreur. 


Au début, tous les coups valent donc 
potentiellement le match nul. L’ordina- 
teur ne choisit le centre que parce qu'il 
l’étudie avant les autres. 


Par la suite, il pourra y avoir des coups 
qui mèneront, à terme, à la victoire. Une 
telle éventualité ne peut avoir lieu que si 
le joueur — humain — commet une 
erreur. Et si le cas se présente, l’ordina- 
teur la détectera toujours. 
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ES 


Tic-tac-toe à la perfection 
Programme en Basic Microsoft 
Auteur Thiérry Lévy-Abégnoli 
Copyright LIST et l’auteur 


10 CLS:REN EFFACE L'ECRAN 

20 DEFINT A-2 

30 DIM C{12),5012),CX(12),1(12) ,A#(2 

35 V=0:1=0:P=0:REN CETTE LIGNE ACCELERE LE PROGRAMME 
EN DECLARANT EN PREMIER LES VARIABLES LES PLUS UTIL 
ISEES 

40 DATA 5,1,3,9,7,2,6,854 

50 FOR 1=1 TO 9:READ OUI): NEXT I 

60 VRAI=-1:FAUX=1 

70 FDR I=0 TO 9 STEP 2:MACH(I)=FAUX:MACH(I+1)=VRAT:N 
EXT 1 

80 AS(O)=" K":A$(2)=" Ye 

90 DATA-1,1,-1,1,-1,1,-1,1,-141,-141,-1 

95 FOR 1=0 TO 12READ CXII):NENT I 

99 REM----CHOIX DU JOUEUR 

100 INPUT “VOULEZ-VOUS VOIR APPARAITRE À L'ECRAN LES 
POSITIONS QUE J'ETUDIE (0 OU N)*;D$: INPUT "VOULEZ-V 
OUS COMMENCEZ (0 OÙ N)":4$ 

105 60SUB 5000 

110 IF A$="D" THEN 145 

115 IF A$="N" THEN 125 

120 G0TD 100 

125 INPUT “VOULEZ-VOUS GAGNER UNE HEURE ENVIRON EN F 

AISANT JOUER LE PREMIER COUP SUR BIBLIOTHEQUE D'OUVE 
RTURE (D OU N)*3B$ 

130 IF B$="Q" THEN M=5:60T0 240 

135 IF B$=°N* THEN 250 

140 6070 125 

145 INPUT “VOULEZ-VOUS BAGNER 15 MINUTES ENVIRON EN 

FAISANT JOUER LE PREMIER COUP SUR BIBLIOTHEQUE D'OUV 

ERTURE (0 OÙ N)";C$ 

150 1F C#="D* THEN 180 

155 1F C$="N" THEN 180 

160 GOTO 145 


180 INPUT “OU JOUEZ-VOUS";1 

185 1F 129 OR I(i THEN 180 

190 IF C(1)C30 PRINT'CASE PLEINE":60T0 180 

200 P=12:CR=CR+1: VC A (P}:CUL)2V 

210 60SUB 1010:60SUB 5000:1F S(12)()0 THEN 3000 
215 IF CR=9 THEN 3200 

217 IF CRC)1 THEN 250 

220 1F C$=*N* THEN 250 

230 1F C(S)=0 LET M=5:C$="":607T0 260 

240 H=1:C#="":6070 260 


250 60SUB 300 

260 Pa11:CR=CR+1:V=CX (P}:C(M)=V1 1=N 

265 PRINT'JE JOUE EN";M:PRINT'POUR DÉTERMINER CE COU 
P J'AI ETUDIE";N;" POSITION(S) DIFFERENTE (S) ":Na0 
270 60SUB 1010:60SUB 5000:1F S(11)C)0 THEN 3100 

275 IF CR=9 THEN 3200 

280 60T0 180 

290 60TD 180 


LT st 
293 REM S/P D'EXPLORATION DE L'ARBRE 
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294 REN 
295 REM SELON LES PRINCIPES DU MINIMAX 


DES COMBINAISONS DE COUPS 


310 S{P-1)=2CX(P-11#20 

320 1(P}20 

330 J(P)2T(P)+#1 

340 IF I(P)=10 THEN 430 

350 IF C(DIT(P)}))0 THEN 330 
360 60SUB 1000 

370 IF ABS(S(P))>0 THEN 400 
380 IF CR=9 THEN 450 

390 P=P+1:60T0 310 

400 GOSUB 2000 

410 IF P=1 THEN M=D(I(1))2 RETURN 
420 S(P-1)=8{P) 

430 IF P=1 RETURN 

440 P=P-1 

450 GOSUB 2000 

460 IF MACHIP)=VRAI THEN 500 
470 IF S(P)(=S(P-2) LET P=P-1:60SUB 2000:6070 330 
440 IF S(P))=S{P-1) THEN 330 
490 G0TO 520 

300 IF S(P){=S(P-1) THEN 330 
510 IF P={ LET M=D(1{1)) 

320 S(P-1)2S(P):B0T0 330 


993 REM S/P COUP SIMULE EN CASE C{DI14P})} 
996 REN À LA PROFONDEUR DE RECHERCHE P PAR 
997 REM LE JO(P} AVEC TEST DE VICTOIRE 


1000 CReCR+11V=CX(P}: I=QL (PI )aC(I)=V:CMP)21 
1005 N=N+1:1F D$="0" PRINT*J'ETUDIE LA POSITION SUIV 
ANTE:":60SUB 5000 

1010 ON 1 SOTD 1100,1200,1300,1400, 1500, 1400, 1700, 18 
00,190 

1099 REM------ COUP JOUE EN CASE 1 
1100 IF C(21=V IF C(3=V THEN 1950 
1110 IF C(4)=Y IF C{7)eV THEN 1950 
1120 IF C(S)=V IF C(9)=V THEN 1950 
1130 S(P)=0:RETURN 

1199 REM------ COUP JQUE EN CASE 2 
1200 IF C(S)=V IF C(B}aV THEN 1950 
1210 IF CUt)eV IF CU3)=V THEN 1950 
1220 S(P)=0:RETURN 

1299 REN------ COUP JOUE EN CASE 3 
1300 IF C(1)=V IF C(2)2V THEN 1950 
1310 IF CIS)=V IF C(7)=V THEN 1950 
1320 1F C(6)=V IF C(9)=V THEN 1950 
1330 S{P)=0:RETURN 

1399 REN----- COUP JOUE EN CASE 4 
1400 IF CI1I=V IF CU7)=V THEN 1950 
1410 IF C(S)=V IF C(6)=V THEN 1950 
1420 S(P)=0:RETURN 

1499 REN------ COUP JOUE EN CASE 5 
1500 IF C{1)=V IF C(9)=V THEN 1950 
1510 IF C(2)<V IF C(B)=V THEN 1950 
1520 1F C(31=V IF C(7I=V THEN 1950 
1530 IF C(4}=V IF C(6)2V THEN 1950 
1540 S(P)=0RETURN 

1599 REN---—--- COUP JOUE EN CASE 6 
1800 IF Ct4)=V IF C(5)=V THEN 1950 


Liste des variables 


Cort) 
S(i) 


représente l’état du jeu 
représente la valeur potentielle du 
groupe de coups en cours d’étude 
au niveau i 

CX() désigne le camp qui joue au niveau 
i 

pointe sur le coup étudié au niveau 
i 

O(I()) case pointée par Ii) 

P niveau étudié 

N nombre de positions étudiées 

M meilleur coup 

nombre de cases pleines 

contient la case du coup simulé au 
niveau i 


IG 


1610 IF C(3)=V IF C(9)=V THEN 1950 
1620 S(P)=0:RETURN 

1699 REM----— COUP JOUE EN CASE 7 

1700 IF C(1)=V IF C(4)=V THEN 1950 
1710 IF C(5)2V IF C(3)=V THEN 1950 
1720 IF C(8)=V IF C(9)=V THEN 1950 
1730 S(P)=0:RETURN 

1799 REM------ COUP JOUE EN CASE 8 

1800 IF C(21=V IF C(S)=V THEN 1950 
1810 IF C(7}zV IF C(9)=V THEN 1950 
1820 S(P)=0:RETURN 

1899 REM------COUP JOUE EN CASE 9 

1900 IF CU)=V IF C(5)=V THEN 1950 
1910 IF C(7)2V IF C(B)=V THEN 1950 
1920 IF C(3)=V IF C(6)=V THEN 1950 
1930 S(P)=0:RETURN 


1945 REM EVALUATION D'UNE POSITION GABNANTE 
1946 REM POUR UN DES CAMPS, NOTE D'AUTANT PLUS 
1947 REN ELEVEE (EN VALEUR ABSOLUE) QUE LA 
1948 REN VICTOIRE EST PROCHE 


1930 S(P}=(14-P}#CX(P) 
1980 RETURN 


1996 REN  S/P DE DEMODIFICATION DU JEU 
1997 REM LORS DE LA REMONTEE DANS L'ARBRE: 
1998 REN TRAVAIL INVERSE DU S/P COUP JOUE 


2000 CR=CR-1:C(CM(P))=0 
2010 RETURN 


2 

2993 REM----LE JOUEUR À GAGNE 

2994 REH (CE MODULE EST INUTILE CAR 
2995 REN CE PROGRAMME EST IMBATTABLE!) 
3000 PRINT*VQUS AVEZ GAGNE":60T0 4000 
3099 REM----LA MACHINE A GABNE 

3100 PRINT “J'AI GAGNE*:60T0 4000 

3199 REM----MATCH NUL 

3200 PRINT “MATCH NUL" 

4000 PRINT “POUR REFAIRE UNE PARTIE APPUYEZ SUR CENT 
ER)" 

4010 INPUT A$:RUN 


4995 RE 
4996 REM AFFICHAGE DU JEU 
4997 REM-———"" 
3000 PRINT" -—--"-"""" . 


3010 FOR 14=0 T0 & STEP 3 

3020 FOR 15=0 T0 2 

3030 IF C(I4+15+1)=0 LET V#=STRS(14+15+1): 8070 5050 
3040 VS=A$(C(14+15#1)41) 

3050 PRINT" '";V8;" * ; 

3060 NEXT 15 

5070 PRINT!" 

3080 NEXT 14 


3100 RETURN 


Inutile d'essayer, le programme ne passera 
jamais par les lignes 2993 à 3000 ! 
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LES COUPS D'ŒIL DE LIST 


MCODER II 


COMPILATEUR 
POUR SPECTRUM 


CODER II est un compilateur Basic pour 
le Spectrum dans sa version 48 K. 
Comme il est dit dans la notice, c’est « un outil 
sophistiqué et versatile dont il ne faut cependant 
pas attendre de miracles ». Néanmoins une bonne 
maîtrise de ce compilateur permet d'obtenir une 
ritesse d'exécution remarquable pour certains 


programmes. 


Distribué sur cassette, Mcoder II 

est accompagné d’une légère 
notice (accordéon fait de quatre petits 
feuillets) glissée dans le boîtier de la cas- 
sette. La notice dont nous disposions 
était écrite en anglais. Mcoder II est 
chargé sous forme de Code d’une lon- 
gueur d’environ 5 Koctets, implanté à 
partir de l’adresse 59990. Le compila- 
teur ne pourra donc être chargé que sur 
un Spectrum disposant de 48 Koctets de 
mémoire vive. 

Que fait ce compilateur ? Il transcrit 
en langage-machine un programme 
Basic pour que, lors de l’exécution, il n°y 
ait plus besoin d’interpréter chaque 
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ligne de programme. Cette interpréta- 
tion est faite une fois pour toutes lors 
de la compilation et l'emplacement des 
variables est alloué pendant cette même 
phase. 


Pour ce qui est des nombres, Mcoder 
ne traite que des entiers signés codés sur 
deux octets (de — 32768 à 32767). Cette 
limitation rendra difficile la comparai- 
son des vitesses d’exécution d’un pro- 
gramme Basic Spectrum (les nombres 
sont codés en virgule flottante sur cinq 
octets) avec le programme équivalent 
compilé. Par ailleurs les programmes 
nécessitant des variables ou nombres 
autres qu’entiers ne pourront être com- 


pilés sans donner des erreurs à 
l'exécution. 


D’autres restrictions du compilateur 
obligent malheureusement à réadapter 
des programmes Basic déjà écrits. 


Ainsi le STEP ne peut pas être inclus 
dans une boucle FOR... NEXT. Le pas 
est toujours implicitement de 1. Pour 
introduire un pas négatif, il faut alors 
procéder à une gymnastique telle que la 
réalisent les lignes 105 et 110 du pro- 
gramme 1 de test. De plus, à la diffé- 
rence du Basic Spectrum, les lignes à 
l’intérieur d’une boucle sont exécutées 
au moins une fois. 


Des temps d'exécution 


records 


Les tableaux numériques ne peuvent 
comporter qu’une seule dimension dans 
un programme destiné à la compilation. 
Les tableaux de chaînes de caractères ne 
sont pas reconnus. 


Donc, soit pour compiler vos pro- 
grammes Basic préexistants, soit pour 
écrire des programmes pouvant être 
compilés d’emblée, vous aurez à bien 
connaître les possibilités et les limites de 
Mcoder. Dans certaines applications 
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1 REM #1 Programme 1 
S INPUT "Combien de nombres ‘";s Tri par échange d’une suite de nombres 
1@ CLS 


15 POKE 25692,255 
28 DIM tits) 
3@ LET nn=s 
46 LET ni=nn+i 
36 FOR n=1 TO nn: LET t{n)=ni-n: NEXT n 
68 PRINT "Suite initiale" 
70 60 SUB 509 
89 FOR i=2 TO nn 
98 LET j=nn 
108 IF t(j-1)>t(3) THEN LET x=t(j-1): LET t(j-1)=t(i): LET tCr)=x 
105 LET j=j-1i 
11@ IF j >= i THEN 60 TO 100 Tri de 100 nombres en Basic : 3 mn 30 sec 
1270 NEXT i avec Mcoder : O mn 03 sec 
158 PFRINT "Apres tri par echange" 
140 G0 SUB 5D@ 
158 G0 TO 1008 
500 FOR n=1 TO nn: FRINT t{n);" " 
514 RETURN 
1086 PRINT "Fin." SN 


Tri de 500 nombres avec Mcoder : 1 mn 07 sec 


3: NEXT 2 PRINT 


vous pourrez apprécier la puissance du 


compilateur. 
Programme 2 Pour illustrer les performances de 
Inversion des 45000 pixels de l’écran Mcoder, les temps d’exécution de huit 
programmes ont été chronométrés (voir 
1 REM #1 ci-contre et page suivante), dans leur 
im CLS version originale et dans leur version 
20 FOR x=1 TO 77 compilée. En Basic compilé, on ne peut 
3@ PRINT "ABCDEFGHIJKLMNOPORSTUVUWXYZ123458" travailler qu'avec des entiers. Il a donc 
AG NEXT » fallu choisir les tests en conséquence. 


58 FOR y=@ TO 175 
68 FOR x=0 TO 255 


78 PFLOT OVER POINT (Kk,y):x,v Des tests 
80 NEXT x Temps d’exécution en Basic : 9 mn 45 sec ; ad: 110 
78 NEXT y avec Mcoder : 1 mn 08 sec bien adap les 
Programme 3 Programme 4 Les huit programmes utilisés ici ne 
Tracé de cercles Tracé de droites prétendent pas évaluer toutes les perfor- 
mances du compilateur. Ils servent plu- 
5 CES tôt à mettre en évidence les applications 
18 LET n=i 29 ELS _ où le programme compilé est beaucoup 
20 CIRCLE 127,87,n Se FOR x=1 TO 175 plus rapidement exécuté que le pro- 
30 LET n=n+3 48 DRAW *x,0@ gramme interprété. 
AG IF n<87 THEN GO TO 20 50 DRAW 8,x Les temps d’exécution ne sont 
6@ DRAW -x,0 qu’indicatifs. Le facteur de gain n’a pas 
Temps d’exécution en Basic : 22 sec 78 DRAW @,-x été calculé lorsque l'incertitude sur une 
avec Mcoder : 21 sec 86 NEXT x mesure était trop grande. 


Le premier programme semble beau- 

Temps d’exécution en Basic : 15 sec COUP plus rapide dans sa version com- 
avec Mcoder : 13 sec  Pilée, maïs il faut encore rappeler que 

Mcoder travaille sur des nombres codés 


Programme 5 sur deux octets au lieu de cinq. Néan- 
Impression de nombres moins le tri de 500 nombres avec Mco- 
18 CLS 


20 FOR n=0 TO 10868: FOKE 23692,255: PRINT n;3" “32: NEXT n 


Temps d’exécution en Basic : 24 sec 
avec Mcoder : 8 sec FRE ERP RP SR RES ES ESESE 
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 MCODER II POUR SPECTRUM 


Programme 6 


der est encore trois fois plus rapide que 
Impression de caractères 


le tri de 100 nombres en Basic 
interprété. 

Les deuxième et huitième program- 
mes utilisent les fonctions PLOT et 
POINT. Les programmes compilés 
montrent là leur très grande supériorité 
et l'intérêt du compilateur pour de tel- 
les applications. 


1 FOR y=1 TO 10 

18 CLS 

20 FOR n=1 TO 88 

30 FOR x=0 TO 7 

4@ PRINT PAPER x3" "; 
SQ NEXT x 

6@ NEXT n 

7@ NEXT y 


Performant 


Temps d’exécution en Basic : 1 mn 10 sec 


malgré ses limites 
avec Mcoder : O0 mn 08 sec 


Programme 7 


L’impression de nombres et de carac- 
Calculs 


tères est testée par les programmes 5 et 
6. La remarque concernant les entiers 
s’applique encore au programme $. 


On note cependant que le tracé de cer- 
cles ou de droites n’est pas beaucoup 
plus rapide avec la version compilée, car 
ces fonctions sont intrinsèquement len- 
tes (programmes 3 et 4). 


Lors de la compilation, les lignes 
Basic sont listées une à une, le pro- 
gramme objet est placé au-dessus de 
RAMTOP, au niveau que vous avez 


1 FOR x=1i TO 1@ 
5 LET a=0 

18 FOR n=1 TO 25@ 
2Q LET a=atn 
ZA NEXT n 
35 NEXT x 
40 PRINT a 


Temps d'exécution en Basic : 20 sec 
avec Mcoder : < 1 sec 


10 FOR x=33 TO 127 
28 CLS 

30 PRINT AT 21,0; 
40 FOR n=0 TO 7 
SQ FOR z=0 TO 7 

55 FOR f-0 TO 1 


Graphiques 
CHRE x 


donné. L'adresse d’appel du pro- 
gramme compilé est affichée. Si une 
commande Basic n’est pas reconnue, la 
compilation s’arrête et la ligne concer- 
née est précisée. 

Une fonction TRACE est disponible. 
L'option 1 crée un programme compilé 
qui pourra être arrêté par la touche 
BREAK lors de l’exécution. Le 
programme-objet créé avec l’option 0 ne 
teste pas la touche BREAK. L’exécution 
de ce programme est alors plus rapide 
(mais la différence est souvent insigni- 


Le logiciel en quelques bignes 
Nom : Mcoder 1} 
Ordinateur : Spectrum 48 K 
Forme : cassette 
Edité par : Personal Software Services 
Distribué par : Innelec 
Prix : 120 FF ttc 
Principale orientation : compilation 
Occupation mémoire : 5 Koctets 


Programme 8 A SO D NN © 


6@ IF POINT (z,7-n)=1 THEN PRINT AT 4+nx2+f,G+z#z; CHR# 1453; CHR# 145 


685 NEXT 

70 NEXT zx 

89 NEXT n Temps d’exécution en Basic : 4 mn 22 sec 
99 NEXT x avec Mcoder : 0 mn 22 sec 
Tableau des résultats des tests 


+ F: 


Droite [Nombre| Alpha | Calcul | Graph. 
<1 22 


E 
Mcoder 
Basic 21 


2 3 
ri Pixels | Cercle 
0 585 
Rapport entre | se. 


les temps 
Les temps sont exprimés en secondes. 
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fiante). Attention aux boucles infinies 
dans ce cas ! 

Le programme-objet, pour être sauve- 
gardé sur cassette, doit l’être avec les 5 
Koctets du compilateur, car celui-ci con- 
tient des routines nécessaires à l’exécu- 
tion. Ceci est un peu lourd, surtout si 
le programme-objet est court. 


Malgré toutes ses limites, Mcoder II 
augmente les performances de nom- 
breuses applications. Il coûte environ 
120 FF ttc. 


Benoît THONNART 
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CARACTOR 


CRÉATION GRAPHIQUE 
POUR TO7 


DITÉ sous forme de cartouche, le logiciel 
Caractor offre à l'utilisateur d'un TO7 ou 
d’un T07/70 la possibilité de créer des dessins à 
l'écran et de les sauvegarder. Même les débutants 
y ont accès : Caractor est facile d'emploi, Un seul 
obstacle, son prix : 750 FF ttc. 


C’est dans la collection Création 

de TO TEK qu'est éditée la car- 
touche de logiciel Caractor. Ce logiciel 
est en effet une aide à la création gra- 
phique, même sophistiquée. Mais 
Caractor permet aussi de sauvegarder 
les œuvres ainsi créées en les transfor- 
mant, selon la demande, en program- 
mes en Basic ou en Assembleur. Et là, 
il devient un outil de programmation. 


Après avoir inséré la cartouche dans 
le TO7 (ou le TO7/70) et sélectionné 
l’option Caractor, une page d’écran 
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apparaît. Elle comprend un premier 
menu, le menu principal, comportant 
des « touches » de commande. Pour 
accéder à l’une ou à l’autre, il suffit de 
la pointer à l’aide du crayon optique. A 
noter une agréable nouveauté, l’appro- 
che du crayon (sans toucher) sur l’une 
de ces touches fait apparaître en écho 
un carré bleu foncé clignotant. Ceci per- 
met d’éviter la relative imprécision de 
ce crayon (dûe bien sûr à la fatigue des 
longues nuits de programmation !). 


Le menu principal comprend quatre 


offre une grille 
pour dessiner, 
l’espace total 
disponible, et un 
menu 


z 
E 
a 
Q 
# 
= 
ol 
ol 
: Photo 1 
è L'option DESSIN 
: 
[] 
[1 
[] 
[1 
[1 
= 


options : DESSIN, TABLEAU, CON- 
SULTATION, FICHIER. 


L’option DESSIN est celle qui permet 
une véritable création graphique. Elle 
affiche à l’écran une grille de 32 X 24 
cases dans laquelle il est possible de des- 
siner point par point, d’effacer, de gros- 
sir une zone, de la déplacer. (photo 1). 

La grille ne correspond qu’à une zone 
de l’espace disponible pour le dessin. 
Elle est de douze caractères graphiques 
(chaque caractère étant une matrice de 
huit cases sur huit), alors que l’espace 
total dans lequel on peut dessiner en 
contient 96 (8 sur 12). Cet espace est 
représenté à droite de la grille, pour 
visualiser le dessin créé au fur et à 
mesure. 


Des crayons et des 


couleurs 


Enfin, un menu propose les différen- 
tes fonctions graphiques : 
un crayon pour dessiner point par 
point ; 
e une gomme pour effacer ; 
. une loupe (fonction ZONE) pour défi- 
nir une zone rectangulaire de la grille ; 
il est alors possible de se déplacer dans 
le dessin grâce à quatre touches de 
direction ; 
e une grille pour revenir à la définition 
de départ. 


Ce menu propose aussi deux com- 
mandes de changement d’option : l’une 
revient au menu principal et l’autre 
accède à l’option TABLEAU. 

Cette option TABLEAU propose une 
palette de couleurs et permet « d’af- 
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_ CARACTOR POUR TO7 


ner » le dessin. Sur une zone délimitée, 
il est possible d’assembler (rapprocher 
les caractères pour former un motif), de 
désassembler, de donner un nom à la 
zone assemblée, de colorer le fond ou 
le motif (grâce à l’une des couleurs de 
la palette). 


Sur un seul caractère graphique, le 
choix de TABLEAU permet un travail 
plus précis encore : suppression sans 
perte (le caractère est récupérable), 
copie à un autre endroit, rotation d’un 
quart de tour, superposition, etc. 


Si le dessin est terminé, il faut retour- 
ner au menu principal pour entrer dans 
le mode CONSULTATION ou dans le 
mode FICHIER. 


La CONSULTATION offre effecti- 
vement une consultation à l’écran ou sur 
l'imprimante des différents motifs 
assemblés et l'examen de tous les carac- 
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tères graphiques qui les composent. 
On peut alors consulter soit un élé- 
ment du tableau en le pointant avec le 
stylo, soit l’ensemble des éléments (un 
élément étant un motif assemblé ou un 
caractère graphique). On peut aussi 
avoir sa représentation ou son codage 
Basic, décimal et hexadécimal (photo 2). 
Quant à l’option FICHIER, elle met 
en liaison l’unité centrale du TO7 avec 
ses périphériques de stockage, lecteur de 
cassette ou lecteur de disquette. 


Elle propose ainsi de formater une 
disquette, de charger ou de sauver un 
dessin. La sauvegarde prend quatre 
formes : 


e le codage interne, CO01, seul mode qui 
permette de recharger le dessin ; 

e l'option CARactère devrait générer un 
fichier qui peut être réutilisé dans les 
autres outils de création graphique (on 


Photo 2 

Le codage du 
caractère de 
coordonnées X = 1, 
Y=01 de la photo 1 


Photo 3 

Le sous- 
programme Basic 
généré par 
Caractor 


a essayé avec PICTOR, mais ça n’a pas 
marché !) ; 

e l’option BASic, tout simplement for- 
midable ! Elle génère automatiquement 
un sous-programme en Basic (photo 3) 
qui pourra être utilisé pour toute autre 
application ; 

e l'option Assembleur, ASM, comme 
l’option BAS génère un sous-pro- 
gramme en Assembleur. 


En résumé, la cartouche Caractor 
représente une aide inestimable à la 
conception de « programmes graphi- 
ques » sur TO7 ou TO7/70. On peut 
regretter que le manuel d’utilisation ne 
soit pas aussi efficace : il est un peu 
fouillis. On y trouve bien tous les ren- 
seignements nécessaires, mais s’agissant 
d’un logiciel qui, sans être complexe, est 
néanmoins difficile d’accès, on aurait 
souhaité plus de pédagogie. 


Un dernier point d'importance pour 
les utilisateurs du TO7 ou du TO7/70, 
le prix de cette cartouche : 750 FF ttc. 
C’est un des logiciels les plus chers exis- 
tant pour ces ordinateurs, mais aussi un 
des plus étonnants. Encore quelques 
longues nuits, en couleurs celles-là, à 
passer devant la machine. 


Jacques LABIDURIE 
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ASSEMBLER 


MACRO-ASSEMBLEUR 
POUR COMMODORE 64 


E macro-assembleur Assembler est édité 

sous label officiel Commodore. 
Ce logiciel se présente sous la forme d’une 
pochette mince renfermant les deux éléments 
fondamentaux que sont la disquette contenant les 
programmes utiles, et la documentation. 
Son utilisation impose au moins deux choses : la 
possession d’une unité de disquettes et de bonnes 
connaissances du langage Assembleur. 


Le macro-assembleur Assembler 

pour Commodore 64 est un 
logiciel « sérieux ». Pour mieux l’abor- 
der, il faut commencer par jeter un coup 
d’œil approfondi sur la documentation. 
Elle est constituée d’un livret de 70 
pages environ, au format 15x21 cm, 
auquel s’ajoute un feuillet glissé en pre- 
mière page, constituant un correctif à 


Le logiciel en quelques lignes 


Nom : Assembler en version anglaise, Assembleur 
64 en version française 

Ordinateur : Commodore 64 

Forme : disquette 

Edité par : Commodore 


Distribué par : Procep pour la version française 
Prix public : version anglaise, 225 FF ttc ; version 
française, 350 FF ttc 

Principale orientation : macro-assemblage 

Autres orientations : moniteur, chargeur, éditeur, 
fable de références croisées 
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quelques indications incomplètes ou 
erronées du livret. 


L'objet de notre essai étant en version 
anglaise (non sous-titrée), personne ne 
s’étonnera du fait que la documentation 
soit intégralement rédigée en anglais. 
Vous serez en droit d’exiger de votre 
revendeur la livraison d’une version 
« bien de chez nous », qui rendra votre 
apprentissage plus aisé (cette version 
s’appelle Assembleur 64 et elle est dis- 
tribuée par Procep). 


La documentation paraît assez touf- 
fue, en effet... et la préface ne manque 
pas d’indiquer dès ses premières lignes 
que (je cite) : « le logiciel et sa docu- 
mentation sont destinés aux utilisateurs 
expérimentés, familiarisés au langage 
d’assemblage de la série 6500, et à la 
manipulation du Commodore 64 ». 
Nous voici donc prévenus. 


Le manuel de référence est divisé en 
quatre chapitres principaux. 


Le premier, sous le titre d’Introduc- 


tion, rappelle le fonctionnement des 
assembleurs en général, et les conven- 
tions d’écriture et d’utilisation pour 
Assembler en particulier. 


Le second chapitre constitue le mode 
d’emploi des programmes permettant la 
création et l’édition de programmes- 
sources. 


Le suivant décrit l’art d’obtenir un 
programme-objet à partir d’un 
programme-source (assemblage), de le 
tester, de le corriger, etc. 


Enfin, le dernier chapitre rassemble 
sur 26 pages divers éléments utiles : une 
carte mémoire du système, une autre 
carte du registre d’entrées/sorties, la 
liste des mnémoniques 6500, la liste des 
messages d’erreurs d’Assembler, etc. 
Gageons que ce dernier chapitre sera le 
plus utile quand la phase d’apprentis- 
sage sera dépassée. 


Le catalogue 


du logiciel 


Ces différents chapitres sont relative- 
ment bien documentés, avec des exem- 
ples fournis chaque fois que c’est néces- 
saire. L'ensemble est donc pratique et 
tout à fait utilisable. Il manque toute- 
fois un exemple de programme-source 
simple, qui serait utile aux débutants ; 
et, plus prosaïquement, un rappel du 
titre du chapitre en haut de page. Le 
manuel n’est visiblement pas destiné aux 
débutants : ces derniers devront se 
documenter sérieusement avec d’autres 
ouvrages plus pédagogiques. 

Quant au logiciel, il semble assez 
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ASSEMBLER POUR C.64 


complet. Voyons un peu. Le catalogue 
de la disquette (figure 1) nous indique 
la présence de dix programmes ou char- 
geurs de programmes. Le premier est 
bien connu de tous les utilisateurs de 
disquettes puisqu'il s’agit du pro- 
gramme Dos Wedge, qui ajoute au C.64 
quelques commandes disques fort uti- 
les et, surtout, simplifie l’usage des com- 
mandes habituelles. 


Editor 64 est le programme éditeur 
qui sert à la mise au point du source, 
en ajoutant des commandes indispensa- 


Figure 1 


Les programmes de la disquette 


bles (de celles qui — soit dit en pas- 
sant — manquent cruellement sur le 


C.64 de base) comme : AUTO, 
CHANGE, DELETE, FIND, NUM- 
BER... et d’autres spécifiques à l’assem- 
blage. Une fois créé, le source est rangé 
sur disquette sous la forme d’un fichier 
séquentiel. 

Assembler 64 traduit le fichier-source 
en fichier-objet contenant les données 
nécessaires à la génération du pro- 
gramme en langage-machine (as- 
semblage). 

Loloader et Hiloader sont deux pro- 
grammes chargeurs semblables qui peu- 
vent s'implanter à deux endroits diffé- 
rents de la mémoire. Leur fonction est 
de traduire le fichier-objet créé par 
Assembler en une écriture réelle en 
mémoire, à l’adresse spécifiée. 

Les deux Monitor sont des moniteurs 
langage-machine indispensables à la 
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recherche et à la correction des erreurs 
commises dans le programme. Ils con- 
tiennent un assembleur immédiat (qui 
ne traite pas les étiquettes et les symbo- 
les), un désassembleur, et de nombreu- 
ses commandes d’interrogation 
mémoire, remplissage et déplacement de 
zones, commandes de périphériques, 
etc. Tout le nécessaire pour un travail 
de débogage (!) efficace. 


Du sérieux 


avec souplesse 


Crossref est utilisé pour obtenir une 
table des références croisées du pro- 
gramme. Son usage pourra se révéler 
utile. 


Quant à Boot All, il permet de char- 
ger et lancer dans la foulée les program- 


SSEMBLER 64 FOUR LIST 
Énes FOND ECRAH 
SSE CADRE ECRAN 


Figure 2 
Un exemple de programme-source, 
à l'usage des novices 


mes Dos,Loader, et Editor. Il simplifie 
donc les manipulations nécessaires. 


A l’usage, Assembler se montre per- 
formant à bien des égards. La création 
du programme-source sous le contrôle 
d’Editor est facile et rapide (figure 2). 
Les opérandes numériques peuvent être 
écrits en décimal, hexadécimal, binaire, 
et même octal. La syntaxe employée est 
standard. L’utilisation d’étiquettes (six 
caractères maximum) et une dizaine de 
directives d’assemblage (réservation 
d’octets en mémoire, options de lis- 
tage...) apportent toute la souplesse 
indispensable. Il est même possible à 
l'utilisateur de définir des macro- 
instructions. Voilà qui est sérieux ! 


Le programme-source étant écrit et 
sauvegardé en fichier, l’assembleur peut 
alors exécuter sa tâche. Celle-ci se 
déroule en deux passes successives, rapi- 
dement. La liste du texte source, com- 
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plétée des codes correspondants, défile 
à l’écran. La sélection du mode HARD 
COPY (impression) rendra des services 
à ceux qui possèdent une imprimante. 
Les autres devront avoir les réflexes 
prompts pour réagir à temps aux éven- 
tuels messages d’erreurs. La demande 
de création de la table des références 
croisées est possible, et sera exploitée 
par la suite grâce à Crossref. 


Une erreur : 


tout à refaire. 


Si tout s’est déroulé sans qu’appa- 
raisse un message d’erreur fatal, le char- 
geur intervient ensuite pour implanter 
les octets en mémoire à l’emplacement 
souhaité. 


Pour parachever l’œuvre, l’utilisation 
de Monitor est utile, au moins pour véri- 
fier que l'implantation est réalisée 
correctement. 


C’est alors que le plus délicat reste à 
faire : tester le bon fonctionnement du 
programme ! Si vous êtes fort, ou si 


Figure 3 LINE# 
Le programme de 
la figure 2 assemblé se 


Er 


& & & 


= 


DU © © © GO © HS © 
Œ 


Et] 
ERP LESETTELTETITETETETEISTET: 
© © De © QE 


L 


LOST YOGE 


Æ © © 


EFRORS 


ETAEUL 
ETMAECL 
BCQULICL 
PRIHT 


VALUE 


EHC OF 
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CODE 


ELISA 
11 


vous avez de la chance, votre pro- 
gramme marche à merveille. Ouf !.… 
Sinon, dans le meilleur des cas, Moni- 
tor vous aidera à vous tirer d’affaire. 
Mais si une grosse erreur a été commise, 
vous aurez tout à recommencer, en 
rechargeant successivement les éditeur, 
assembleur, chargeur et moniteur. 


Même dans le cas où une erreur appa- 
raît lors de l’assemblage, tout est à 
refaire. Et c’est bien là que le bât blesse, 
La mise au point d’un programme, si 
vous êtes débutant, vous prendra beau- 
coup, beaucoup de temps... Charge- 
ment, lancement, modification, destruc- 
tion (du fichier précédent), sauvegarde, 
chargement, essai, etc. On n’en finit 
plus. Et si en plus vous avez eu la mau- 
vaise idée de ranger votre fichier-source 
sur une autre disquette que la disquette 
Assembler, que de manipulations et de 
fausses manœuvres en perspective ! 


Ce défaut, la lourdeur d’emploi, est 
dû au fait que les programmes rési- 
dent sur disquette, tous séparés, et doi- 
vent être appelés successivement. Leur 
taille interdit peut-être de les inscrire en 
mémoire morte dans une cartouche à 
enficher à l’arrière du Commodore pour 


LIHE 


les rendre disponibles immédiatement et 
sans effort. C’est en tout cas le prix à 
payer pour utiliser cet assembleur 
performant. 


Pour les initiés 


de préférence 


Pour conclure, Assembler est un logi- 
ciel intéressant, aux possibilités éten- 
dues, réservé de préférence aux pro- 
grammeurs avertis. Son emploi n’est pas 
vraiment pratique et impose trop sou- 
vent des manipulations fastidieuses. La 
documentation est suffisante — pour 
les mordus — mais trop peu pédagogi- 
que. Les nouveaux venus au langage 
Assembleur devront donc se documen- 
ter sérieusement avant de se lancer à 
corps perdu dans l’utilisation de ce logi- 
ciel. Et pour le prix de 225 FF ttc, le jeu 
en vaut certainement la chandelle. 


Robin BOIS 
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ON NE LE. DIRA JAMAIS ASSEZ 
VIVENT LES PARAMÈTRES ! 


Les constantes, 


… (Attribué, peut-être à tort, à Marcel Pagnol) 


N nouveau 

chapitre consacré 
aux paramètres où 
l’auteur, économe de la 
sueur de ses phalanges, 
yous invite encore à 
préférer les variables 
aux constantes. 


Dans le premier numéro de 

LIST, j'ai entonné la louange 
des variables sur plusieurs tons, ce qui 
explique en partie la météo correspon- 
dante, tout en criant haro sur les 
constantes. Mais la chanson n’est pas 
finie, car les douces et souriantes 
variables rendent service dans bien 
des domaines, et je le prouve. 


Pour ce qui est des graphismes, il 
est parfois intéressant de procéder à 


ça ne sert qu’une fois. 


grands coups de POKE dans la 

mémoire d’écran. Sur PET/CBM, on 

peut imaginer le programme suivant : 

100 FOR I=1 TO 38 

110 POKE 32768 +1,64:POKE 33728 
+1,64 

120 NEXT I 

130 FOR 1=32808 TO 33688 STEP 
40 

140 POKE 1,93:POKE I + 39,93 

150 NEXT I 

160 POKE 32768,112:POKE 
32807,110 

170 POKE 33728,109:POKE 
33737,125 


Résultat prévisible, on trace un 
cadre sur l’écran, et on n’a pas touché 
au curseur, qui est toujours là où on 
l’a laissé. Quelques explications si 
vous voulez : 32768, c’est le début de 
la mémoire d’écran. Sachant que 
l’écran est de 25 lignes sur 40 colon- 
nes, la première boucle trace un trait 
horizontal (code-écran du caractère : 
64) de la ligne 1, colonne 2 à la ligne 
1, colonne 39 (POKE 32768 +1,64) et 
de la ligne 25, colonne 2 à la ligne 25, 


das 2 
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« Les douces et souriantes variables. » 


Marius, c’est comme les allumettes : 


colonne 39. La deuxième boucle trace 
un trait vertical (code-écran : 93) de la 
ligne 2, colonne 1 à la ligne 24, 
colonne 1 et de la ligne 2, colonne 40 
à la ligne 24, colonne 40. Il ne man- 
que plus que les quatre coins (1.1 
col.1, 1.1 col.40, 1.25 col.i et 1.25 


77 


«… À grands coups de POKE 
dans la mémoire d'écran. » 


col.40 ; 1. est mis ici pour ligne et col. 
pour colonne). C’est ce que font les 
lignes 160 et 170, avec les codes-écran 
correspondant aux quatre caractères 
de coins possibles. 


Mon programme tourne, on ne s’en 
lasse pas, et je veux en faire profiter 
Georges. Or Georges, lui, a un VIC. 
Il peut lire mes programmes sur cas- 
sette sans difficulté, mais il a 23 lignes 
de 22 colonnes et, pour ce qui est du 
départ de la mémoire-écran, ce n’est 
sûrement pas la même adresse que sur 
les PET/CBM. Il va falloir aviser. 


Quant à Ginette, elle s’est offert un 
Commodore 64 que lui a rapporté son 
beau-frère qui connaît quelqu’un dont 
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« … Ontrace un cadre à l'écran, » 


la tante a un ami qui travaille en 
Angleterre. Eh bien, pour elle, à tous 
les coups, les adresses seront différen- 
tes. Or donc, si je veux donner mon 
programme à Georges ou à Ginette, 
ils ne s’en serviront pas, pour la sim- 
ple raison qu’ils auront la flemme de 
refaire tous les calculs. 

Mais je me suis laissé dire qu’un 
ordinateur, accessoirement, ça savait 
aussi effectuer quelques menues opé- 
rations arithmétiques. C’est là que la 
ruse paramétrée va intervenir, et vous 
allez voir qu’elle a du pain sur la 


planche, la ruse paramétrée. Alors, au 
charbon, l’ordinateur ! Je lui offre les 
données et il fait le travail. 


Les données pour mon bon vieux 

PET sont : 

DE, départ de la mémoire-écran 

(DE = 32768) ; LE, largeur de l’écran 

(40 colonnes) et NL, nombre de lignes 

(ici, 25). On y va ! 

100 DE = 32768:LE = 40:NL = 25 

110 FOR I=1 TO LE-2 

120 POKE DE +1,64:POKE DE+LE 
*(NL — 1) +1,64 

130 NEXT I 

140 FOR I=LE TO LE+*(NL —2) 
STEP LE 

150 POKE DE +1,93:POKE DE +1 + 
LE — 1,93 

160 NEXT I 

170 POKE DE,112:POKE DE+LE-I1, 
110 

180 POKE DE + LE *(NL — 1),109: 
POKE DE + LE%NL — 1,125 


Un petit 


tour d’adresse 


Mon programme à moi comporte 
trois paramètres : l’adresse de départ 
de la mémoire d’écran, la largeur 
d'écran et le nombre de lignes. 


Comme moi, Ginette a 25 lignes de 
40 caractères, mais Georges, sur son 
VIC, a 23 lignes de 22 caractères. 
Pour l’adresse de départ de la 
mémoire d’écran, chez Ginette, c’est 
1024 et tout est dit. Mais chez Geor- 


=. ges, c’est une autre paire de man- 


& Ils auront la flemme 
de refaire tous les calculs. » 


RUSE , 
PARAMETRÉE 
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ches ! Sur le VIC, à la question 
‘Quelle est l’adresse de départ de la 
mémoire d’écran ?’’, la réponse 


exacte est : ‘Ça dépend.” Ça dépend 
si Georges laisse son VIC tout seul, 
avec ses 3,5 Koctets de mémoire vive, 


MON 
ADRESSE 21 


«L'adresse de départ 
de la mémoire d'écran ? » 


ou s’il le leste de 3 Ko de mieux, ou 
s’il le gonfle jusqu’à 8, voire 16 Ko. 

Rien n’est simple, mon pauvre 
Georges, mais pour simplifier, rédui- 
sons le problème à deux cas : 

1. George a branché une extension 8 
ou 16 Ko. Dans ce K — oh pardon ! 
— dans ce cas, la mémoire d’écran 
commence en 4096. 

2. Georges n’a rien, ou seulement 3 
Ko d’extension, et la mémoire d’écran 
commence en 7680. 

Je pourrais ajouter, histoire d’affo- 
ler Georges, que sans le savoir, il a 
aussi le Basic baladeur, mais c’est une 
autre histoire, et je garde pour une 
autre fois le plaisir de lui annoncer la 
nouvelle et de le voir rouler des yeux 
en CHRS$(209). Car ce n’est pas tout. 
Georges et Ginette ont la couleur. Ils 
l’ont voulue, ils l’ont eue, c’est bien 
fait pour eux : ils en subissent les con- 
séquences. Ils doivent, en plus, mettre 
par POKE une valeur donnée dans 
une mémoire-couleur qui contient 
autant de cases que la mémoire 
d’écran, faute de quoi, le cadre appa- 
raîtrait en blanc sur blanc, ou bleu 
sur bleu, bref, n’apparaîtrait pas ! 
Cette mémoire commence en 55296 
sur le C.64, et comme Georges cher- 
che décidément la complication, sa 
mémoire couleur se balade aussi selon 
l’extension de mémoire vive (MEV) 
branchée sur son VIC : s’il a 8 ou 
16 Ko de MEV supplémentaire, c’est 
37888 ; sinon, c’est 38400. Il sera sim- 
ple d’ajouter quelle couleur ils choi- 
sissent (0 pour noir, 1 pour blanc, 2 
pour rouge, etc.) et de doubler les 
POKEs en mémoire d’écran de 
POKEs en mémoire-couleur, encore 
faut-il préciser où elle démarre. 


Tout cela paraît bien décourageant, 
et on pourrait désespérer de jamais 
s’y retrouver si une pensée ne venait 
nous consoler : l’ordinateur s’y 
retrouve, lui, hein ? Et vous et moi 
qui sommes futés, nous n’allons pas 
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LES PARAMÈTRES 


«NOUS N'ALLONS PAS NOUS LAISSER IMPRESSIONNER 
PAR UNE BÉCANE AMORPHE. » 


nous laisser impressionner par une 
bécane amorphe, un tigre de silicium, 
que dis-je, un sac à puces !‘ Alors, 
approchez-vous, je vais vous dire : 
l’ordinateur a un truc pour s’y retrou- 
ver lui-même. Mais oui, il truque ! 


Tout est truqué: fl’ordinateur 
carotte ! Il a de petites notes écrites 
dans les coins, qu’il consulte à la 
dérobée en faisant semblant de cher- 
cher un buvard, et son truc, ça 
s’appelle les pointeurs. 


Un pointeur, c’est souvent une 
paire d’adresses qui se suivent en 
mémoire, disons Al et A2, et qui con- 
tiennent en tout et pour tout une 
autre adresse, que nous appellerons 
AA. La formule rituelle pour lire un 
pointeur est: AA=PEEK(AI1) + 


Adresses de début 

des mémoires Basic, 

écran et couleur, sur Commodore 64 
et sur VIC en fonction de 
l'extension de mémoire branchée 


256*16 


256*PEEK(A2). Pour peu que l’on 
soit certain que Al contienne 0, ce 
qui est souvent le cas, il suffit de 
faire : AA =256*PEEK(A2). 


Quant au pointeur de la mémoire- 
couleur, selon la position du point sur 
l'écran, il peut être augmenté de 1 sur 
VIC, ou de 3 sur le C.64. Pour être 
certain de lire la valeur du début de la 
mémoire-couleur, le plus sûr est d’ins- 
crire: AA=256+2*INT(PEEK 
(AA)/2). 

Or, le VIC et le C.64, malgré toutes 
leurs différences, possèdent en com- 
mun un certain nombre de pointeurs. 
Et parmi eux, devinez quoi? Un 
pointeur qui contient l'adresse de 
départ de la mémoire d’écran (en 648) 
et un autre qui contient l’adresse de 
départ de la mémoire-couleur (en 
244). 

Alors, les choses s’éclairent soudain 
grâce aux deux formules magiques 
que je vous livre: départ de la 
mémoire d’écran en 256*PEEK(648) 
et départ de la mémoire-couleur en 
256+4*INT(PEEK(244)/4). 


PEEK(648) peut contenir 30 ou 16 
sur le VIC, il contient toujours 4 sur 
le C.64 (essayez un peu de diviser par 
256 les adresses que je vous donnais 
tout à l’heure, et vous comprendrez 
pourquoi). 

Tiens, mais au fait, c’est magnifi- 
que ça. Le programme sera capable 
de savoir tout seul s’il tourne sur VIC 
ou sur C.64 et il pourra s’y adapter 
au-to-ma-ti-que-ment : 

100 DE = 256#PEEK(648):LE = 40: 
NL=25:IF PEEK(648) > 
4 THEN LE=22:NL=23 


PEEK Début de PEEK 
(648) | mémoire-écran (244) 


105 MC = 256*44INT(PEEK(244)/ 
4):C=0 


Il ne reste plus qu’à doubler le pro- 
gramme en ajoutant les POKEs en 
mémoire-couleur. S’il fallait refaire 
tous les calculs, ce serait découra- 
geant. Là, on va mettre le curseur sur 
le dernier chiffre des lignes 120, 150, 
170 et 180, et changer le O0 en 5, puis 
DE en MC, puis le code du caractère 
en C, code-couleur. Cela donne : 

110 FOR I=1 TO LE 

120 POKE DE +1,64:POKE DE +LE 
*(NL —1)+1,64 

125 POKE MC +I,C:POKE MC +LE 
*(NL—1)+1,C 

130 NEXT I 

140 FOR I=LE TO LE*(NL-—2) 
STEP LE 

150 POKE DE +1,93:POKE DE +1 + 
LE -—1,93 

155 POKE MC +LI,C :POKE MC + 
I+LE-—1,C 

160 NEXT I 

170 POKE DE,112:POKE DE + 
LE—1, 110 

175 POKE MC,C:POKE MC + 
LE-—1,C 

180 POKE DE + LE*(NL — 1),109: 
POKE DE + LE+*NL — 1,125 

185 POKE MC +LE+*(NL -—1),C: 
POKE MC +LE+*NL-—1,C 


Un plaisir ! Mais c’est vrai qu’on a 
trop souvent tendance à faire le tra- 
vail à la place de sa machine. C’est 
nocif, ça... Reste le troisième couplet 
M'ssieurs-Dames, couplet sentimental : 
les souvenirs d’enfance.. 


François J. BAYARD 


Début de 
mémoire-couleur 


=4096| 30 256*30=7680| 150 ou 151 256+2*INT((150 ou 151)/2) = 38400 
$1000!| $1E $1E00 | $96 ou 597 9600 


$1200 


4 256+4 = 1024 
$0400 


Formules indépendantes de l’appareil (VIC ou C.64) et de la taille-mémoire 
Début de la mémoire Basic : 256«PEEK(44) 

Début de la mémoire-écran : 256:PEEK(648) 

Début de la mémoire-couleur : 256»4*INT(PEEK(244)/4) 


$ 
VIC + 3 Ko 4 256%4 = 1024 256+30=7680| 150 ou 151 256*2#INT((150 ou 151)/2) = 38400 
$04 $0400 $1E00 | 596 ou $97 $9600 
256*18 = 4608 = 
$ 


256*16=4096 | 148 ou 149 256*2+INT((148 ou 149)/2)= 37888 

$1000 | $94 ou $95 9400 
216 à 219 2564+INT((216 à 219)/4) = 55296 
$D8 à $DB $0800 
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LANGAGE 


LES PILES EN FORTH 


EUX piles se 

partagent les 
tâches en Forth : 
une pile de données et 
une pile de retour, Elles 
sont à l’origine de la 
rapidité et d’une 
occupation mémoire 
réduite de ce langage. 


Tous les ordinateurs qui disposent 

d’un Forth travaillent avec un 
minimum de deux piles. Ce sont des 
zones de la mémoire que le processeur 
va utiliser pour y accumuler les données, 
en vue de leur utilisation ultérieure. 


La première est la pile de données, 
encore appelée pile de paramètres ou 
plus simplement /a pile (on l’a déjà ren- 
contrée dans le numéro 2 de LIST). La 
seconde est la pile de retour, interlocu- 
teur discret mais habituel et nécessaire 
de la pile de données. 


Une seule pile 


beaucoup d'astuces 


Prenons un exemple. Soixante assiet- 
tes — des jaunes, des vertes et des blan- 
ches — sont empilées dans le désordre. 
On voudrait les regrouper par couleur 
dans une seule pile. Une solution per- 

- met un tel tri : décomposer la pile en 
trois petites piles, chacune accueillant 
une couleur, puis les réunir de telle sorte 
que les assiettes soient regroupées par 
couleur. 


Dans cet exemple, le tri aura été effec- 
tué à l’aide de trois piles de retour. 
Forth, lui, n’en donne qu’une, mais 
avec beaucoup d’astuces pour en tirer 
le maximum. 
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Dans certains Forth particulièrement 
complets, il peut exister d’autres piles : 
la pile image de Hector HRX permet des 
acrobaties graphiques, les piles de 
chaîne (sur PDP 11, VAX, etc.) sont 
utilisées par les astronomes profession- 
nels, etc. 


Observons concrètement ce qui se 
passe. L’entrée de XX RETURN ren- 
voie le message ?N’EXISTE PAS OK, 
ou tout autre message d’erreur, car le 
mot ‘‘XX’’ n’existe pas en tant que mot 
Forth. Le résultat de cette introduction 
est de vider la pile ! Entrons mainte- 
nant :123456789 10. Et étudions 
alors les opérateurs de pile. 

Tout d’abord, un coup de ‘‘sondeur”” 
donné par .S RETURN affichera le con- 
tenu de la pile sans le modifier : 109 8 
7654321 OK précédé de ADR. EN 
PREMIER et suivi d’une flèche (—). 


Le rôle de 


chaque opérateur 


ADR. EN PREMIER est l’adresse où 
entrera la prochaine valeur empilée. Elle 
reste constante tant qu’il y a dix valeurs 
sur la pile. Elle diminue de deux points 
dès que l’on y ajoute des données. 


Chaque donnée entrée est mémorisée 
sur 16 bits. En Forth, ces seize bits cons- 
tituent une cellule. Donc cette adresse 
est celle de la prochaine cellule libre, et 
comme la pile part de valeurs élevées 
dans la mémoire et descend vers des 
valeurs basses, il est normal qu’à cha- 
que entrée, l’adresse de la nouvelle cel- 
lule libre ait diminué de deux points. 


Pour se familiariser avec cette notion, 
il ne reste qu’à entrer, sonder, réentrer 
et resonder. Pour faire l’inverse, c’est- 
à-dire rechercher la valeur contenue à 
une adresse, il suffit d’utiliser le point 
d’interrogation (?}), dont la définition en 
Forth est la suivante : 

1 1@:;i 

Pour en revenir aux opérateurs, il 
faut à nouveau vider la pile par XX 
RETURN et introduire les dix valeurs 


(sans oublier les espaces) : 123456 
78910. 


Chaque opérateur doit être défini 
clairement et pourra être testé au fur et 
à mesure. 


DROP (n--) : c’est l’opérateur le plus 
radical ! Il fait sauter, il efface, il sup- 
prime la donnée qui figurait en sommet 
de pile. C’est ce que matérialise la nota- 
tion conventionnelle (n--) qui donne 
l’état du sommet de pile avant DROP, 
le ‘‘n”” désignant une valeur quelcon- 
que, les deux tirets (--) représentant l’en- 
trée du mot considéré (ici DROP) et l’es- 
pace qui précède la seconde parenthèse 
marquant que le ‘‘n’° a disparu. Ainsi, 
quand on n’a plus besoin d’une valeur 
sur la pile, on la DROPpe ! 


SWAP (a,b--b,a): cet opérateur 
intervertit les deux valeurs qui se succè- 
dent en sommet de pile. Si on l’entre à 
la console en le faisant suivre de .S, on 
obtient : — xxxxx 9 1087654321 
OK (les xxxxx représentent l’adresse qui 
varie selon les ordinateurs). 


DUP (n--n,n) : c’est un opérateur de 
duplication du sommet de pile. Il sera 
très utile lors des tests, les opérateurs de 
test ‘‘consommant”” le sommet de pile. 
Opérons un DUP et sondons par .S : > 
xxxxX 99108765 432 1 OK. 


ROT (a,b,c--b,c,a) : provoque une 
permutation circulaire des trois valeurs 
du sommet de pile, ce dernier étant tou- 
jours à droite dans la notation conven- 
tionnelle. Cet opérateur est assez astu- 
cieux. Testons ROT et voyons le résul- 
tat (par .S) : — xxxxx 1009987654 
321 OK. 


OVER (a,b--a,b,a) : OVER copie le 
sous-sommet en sommet de pile, selon 
le même principe que DUP, mais en 
s’exerçant sur la deuxième valeur de la 
pile au lieu de la première. Un test de 
OVER donne : — xxxxx 9 1099876 
5 432 1 OK. C’est parfait. 


Mais que faire pour remettre la pile 
dans l’ordre primitif sans réintroduire 
les données ? Les opérateurs dont on 
dispose nous le permettent très facile- 
ment: DROP SWAP DROP 
RETURN. On vérifie par .S : — xxxxx 
1098765432 1 OK. 
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Et pour opérer plus profondément 
dans la pile ? Par exemple, pour faire 
remonter le 5 en sommet de pile par per- 
mutation circulaire ? Ce sera possible 
avec une nouvelle classe d’opérateurs : 
ceux qui demandent une donnée sur la 
pile. 


n ROLL (n--) : la notation conven- 
tionnelle indique par un espace avant la 
seconde parenthèse, que ROLL con- 
somme le sommet de la pile pour exé- 
cuter sa tâche. Il pratique la permuta- 
tion circulaire du nième terme de la pile, 
avant introduction de n. Certains Forth 
ne disposent pas de ROLL. Ils pourront 
le créer de la manière suivante : 


: XROLL DUP 2< 


IF DROP .‘‘ <2 ROLL IMPOSSIBLE” CR 


ELSE DUP 0 
DO SWAP R> R> 
ROT >R >R >R 

LOOP 1 


DO R> R> R> R> SWAP >R 


ROT ROT >R >R 
LOOP R> 
THEN ; 


Le système de décalage de ce pro- 
gramme donne une grande clarté au 
texte et en facilite la compréhension. Les 
têtes de ligne sont occupées par les 
mots de structuration et de bouclage, 
avec une correspondance verticale des 
mots qui travaillent ensemble (DO avec 
LOOP, IF avec ELSE et THEN). Quel- 
ques explications sont encore nécessai- 
res avant que ce programme ne soit par- 
faitement clair. 


n PICK (n--) : est le dernier opérateur 
de cette série. Son action est analogue 
à celle de OVER, mais ici c’est le nième 


MON CHER FORTH , J'AÏ BIEN 


NE SOIT PAS VRAIMENT 
ADAPTÉE À NOS 
BESOINS ! 


élément de la pile que PICK va recopier 
au sommet. Ce mot n’existe pas dans 
tous les Forth. Il peut être créé lui aussi, 
le langage Forth étant conçu de telle 
sorte qu’un mot qui n’appartient pas à 
son vocabulaire peut presque toujours 
être construit. Même s’il faut chercher 
un peu. 


La liste des opérateurs doit être com- 
plétée par celle des opérateurs arithmé- 
tiques : + (a,b--S), S représentant la 
somme et — (a,b--D}, D représentant la 
différence. Il faut noter que cette dif- 
férence se fait dans le sens a —b, c’est- 
à-dire que c’est la dernière valeur empi- 
lée qui est soustraite à la précédente. 
L'opérateur de la multiplication est * 
(a,b--P) où P représente le produit. 


PEUR, QUE VOTRE MÉTHODE 
DE CLASSEMENT PAR PILES 


envoie le curseur au début de la ligne suivante par un retour-chariot 
oublie le mot qui suit FORGET dans le flot d’entrée, ainsi que tous 


liste tous les mots du dictionnaire en commençant par les derniers 
créés. La limite entre les mots créés (mots de l'utilisateur) et les mots 
existants déjà (mots du système ou primitives) est marquée par le 
mot FORTH. Les primitives ne sont pas effacées par FORGET 


introduit la création d’un mot nouveau dont le nom suit ce signe 
termine la définition du mot créé. Elle est alors compilée dans le 


signale à la machine le début d’une chaîne de caractères qui se ter- 


”]. L’exécution du mot affichera alors la chaîne placée 


commence un commentaire qui se terminera par P] (ne nécessitant 
pas d’espace devant lui). Comme , il doit être suivi d’un espace 


Les mots de base 
CLS nettoie l’écran 
CR 
(Carriage Return) 
FORGET 
les mots créés après lui qui figurent dans le dictionnaire 
VLIST 
u dictionnaire 
minera par 
entre guillemets 
DO...LOOP exécute une boucle 
S affiche le contenu de la pile sans le modifier. 
Un mot FORTH est toujours terminé par un espace qui est son délimiteur. 
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Quant à la division, elle n’est pas sim- 
ple : c’est une combinaison d’additions, 
de multiplications et de soustractions. 


Tous ces opérateurs permettent déjà 
de créer de nouvelles fonctions. Par 
exemple : 
< un calculateur automatique de carrés 

: CARRE DUP *.; 

e un ‘‘cubeur’” infaillible 
: CUBE DUP DUP * *.; 


Rien n'empêche de concevoir ces 
fonctions différemment. En effet, les 
points (.) provoquent l'affichage du 
résultat, mais aussi sa perte, en le sor- 
tant de la pile. Une nouvelle définition 
de CARRE, sans le point d’affichage, 
permet au résultat d’être utilisé par la 
suite. Ainsi, une nouvelle définition de 
CARRE et de CUBE peut être (après 
avoir fait FORGET CARRE pour net- 
toyer le dictionnaire) : 

: CARRE DUP * ; 

: CUBE DUP CARRE * ; 


Ainsi CUBE utilise la fonction 
CARRE. 


En intermède aux jeux de pile, il est 
bon de se pencher sur la structure de 
prise de décision la plus fréquemment 
employée. Une décision, c’est un choix 
consécutif à un examen de la situation. 
Par exemple : 

Peuvent se produire À et B 

Si c’est À, je ferai PLIC 

Si c’est B, je ferai PLOC 

Et après cela, dans tous les cas, je ferai 
GATOUM ! 


Après une prise de décision aussi 
importante, dont beaucoup d’événe- 
ments dépendront à la face du monde, 
on peut s'étendre sur une couche moel- 
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LES PILES EN FORTH 


leuse et profiter du repos du guerrier ! 


En Forth, ces décisions sujettes à con- 
dition se présentent avec la structure : 
IF...ELSE...THEN (si c’est vrai.….si 
c’est faux...et puis). 


Si le résultat du test est 1, soit vrai 
(pour IF), le traitement ira à PLIC, puis 
à GATOUM (pour THEN). Si le résul- 
tat est à O, soit faux (pour THEN), il 


mera le booléen pour orienter le proces- 
seur vers ce qui le suit dans le cas du 1, 
ou pour pousser le processeur vers ce 
qui suit ELSE si le booléen était nul. 


Vous avez compris ? 
Oui, vous passez à la suite. 
Non, vous relisez ! 


Essayons ce qui suit : 


: TEST 3 MOD ; 


: PAR3 TEST IF PLIC 


ELSE PLOC 


THEN GATOUM QUIT : 


: PLIC CR .‘‘ INDIVISIBLE PAR 3 !”’ CR ; 
: PLOC CR .‘‘ DIVISIBLE PAR 3 !”’ CR ; 


: GATOUM .“ ES-TU CONTENT, MAÎTRE ?” CR ; 


(traitement si faux) 
(MOD divise et donne 
seulement le reste éven- 
tuel) 


(s’il y a un reste, VRAI 
devant IF envoie à 
PLIC) 

(s’il n’y à pas de reste, 
FAUX devant IF envoie 
à PLOC) 

(QUIT supprime le OK 
mais pas le curseur) | 


ira à PLOC avant d’aller à GATOUM 
(pour THEN). 


Toute valeur non nulle peut rempla- 
cer le 1, mais le O pour faux est 
impératif. 


Il existe toute une série de tests. Ils 
ont tous la caractéristique de renvoyer 
sur la pile un drapeau ou flag, ou encore 
booléen, c’est-à-dire soit un 0 soit un 1 
ayant toujours le même sens : 1 pour 
vrai, O0 pour faux. 


Ceci à l’intention de IF qui consom- 


Début du démontage 


Il ne reste plus qu’à entrer, par exem- 
ple, 4324 PAR3 RETURN, pour voir 
s’afficher : 

INDIVISIBLE PAR 3 ! 
ES-TU CONTENT, MAÎTRE ? 


Mais en entrant 4326 PAR3 
RETURN, le résultat devient : 
DIVISIBLE PAR 3 ! 2 
ES-TU CONTENT, MAÎTRE ? 


On peut éprouver une certaine fierté 
à se voir gratifier ainsi par l’ordinateur, 
mais aussi la grande satisfaction d’avoir 
bien compris que MOD ne place un 
reste sur la pile que si la division par 3 
n’aboutit pas à un quotient entier. Et si 
IF trouve le reste, il affiche INDIVI- 
SIBLE, alors que s’il trouve un 0, il ren- 
voie à ELSE qui affiche DIVISIBLE. 


C’est donc le reste qui remplit le rôle 


à l’écran rappelle où est le sommet. 


Introduction de la pile témoin 123345678910 RETURN 
OK 
L Pile Retour Commentaires | 
=. — : » 
$ — — Début compilation 
4 -- 8 9 10 4 — 4 au sommet. C’est ‘‘n’? 
XROLL - 8 9 10 4 _ NOM du nouveau mot 
DUP -- 891044 — Duplique le sommet 
2 -— 8910442 — Introduction du deuxième 
terme en vue de la compa- 
raison 
< -7891040 —_ booléen 0 car 4< 2 est faux 
Conventionnellement, le sommet de pile est à droite. Ici c’est l’inverse, mais la flèche 
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Re 


(traitement si vrai) | 


de booléen. Mais ce ne sera pas toujours 

le cas et une batterie de tests sera, là 

encore, bien utile. 

0<(n--B) : le booléen (B) qui remplace 
n en sommet de pile est à 1 sin 
est négatif, et à 0 sinon. 

0 > (n--B) : le booléen est à 1 si n est 
positif, et à O si n est négatif ou 
nul. 

O0 = (n--B) : le booléen est à 1sin 
est nul, et à 0 sinon. 

= (a,b--B) : le booléen est à 1 sia= b, 
à 0 sinon. 

?(a,b--B) : le booléen est à 1 si a >b, 
à O sinon. 

<(a,b--B) : le booléen est à 1 si a <b, 
à 0 sinon. 


Il faut remarquer que 0 > signifie 
“plus grand que 0’’ à l’inverse de la 
notation traditionnelle : ceci est dû à la 
notation polonaise inverse. 


Tous ces outils permettent de passer 
à la pile de retour. 


Les opérateurs de cette pile ne doivent 
pas être confondus avec les tests, bien 
qu’ils utilisent le même type de notation. 
Le signe > a ici valeur de flèche, Ces 
opérateurs doivent être maniés avec une 
grande prudence, et toujours par paire 
de valeurs inversées. De plus, ils ne peu- 
vent être utilisés qu’entre le signe deux- 
points (:) et le signe point-virgule (). 


Cette dernière remarque évitera de 
voir apparaître un tas de manifestations 
bizarres qui conduisent à un RESET, 
tragique puisqu'il vide la mémoire vive 
de tout ce qui y avait été introduit ! 
7R (n--) : envoie le sommet de pile au 

sommet de pile de retour. 

R > ( --n) : ramène le sommet de pile 
de retour en sommet de pile. 

R ( --n) : recopie en sommet de pile le 
sommet de pile de retour, en sauve- 
gardant ce dernier. 

I ( --n): joue exactement le même’ 
rôle que R, son utilisation se situant 
exclusivement dans les boucles DO. 
LOOP. 

J ( --n) : recopie en sommet de pile 
le sous-sommet de pile de retour, 
avec la même limite aux boucles 
DO...LOOP que I. 

La pile de retour ayant été détaillée, 
chacun peut démonter le programme 
XROLL présenté plus haut. C’est, on 
peut l’apprécier maintenant, un bon 
exemple du rôle discret mais indispen- 
sable que joue la pile de retour. 


= Bernard LAMBEY 
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UTILITAIRE PC-1500 


UN PROGRAMME 
ANTI-PIRATES 


ES ordinateurs de poche ont vocation, du fait 

de leur taille et de la permanence de leur 
mémoire, d'accompagner leurs propriétaires en 
des lieux très divers, de la salle de classe au 
bureau. Or, certains programmes peuvent être 
confidentiels et jusqu'ici aucune protection 
n'apportait une sécurité vraiment sérieuse. 


Un très court programme, rédigé 

en langage-machine, empêche 
de lister ou d’exécuter un programme 
principal en Basic que lon désire 
cacher. Le principe est simple : comme 
s’il s’agissait d’un message secret, On va 
le coder. 


L’utilitaire de codage est court 
(33 octets), concis et très rapide. Il fait 
appel à deux données que le propriétaire 
de l’ordinateur est seul à connaître : 
l’adresse d'implantation de la routine en 
langage-machine (relogeable, elle peut 
être dissimulée n’importe où en 
mémoire) et, bien sûr, la clé du codage. 


Ce codage conduit à ajouter la valeur 
1 à tous les octets du (ou des) pro- 
gramme(s) Basic.Chaque fois que la 
routine de codage est appelée, la valeur 
1 est de nouveau ajoutée aux codes du 
Basic. L’effet est immédiat : les pro- 
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grammes sont devenus illisibles et inexé- 
cutables. Vous pouvez ainsi les coder et 
les recoder un nombre de fois connu de 
vous seul. 


La clé du 


| codage-décodage 


Pour décoder, la même routine est 
employée mais vous devez en indiquer 
la clé. Si cette clé correspond, tous les 
octets sont alors décrémentés d’une 
unité. Il convient de décoder autant de 
fois qu’on aura codé pour récupérer le 
programme Basic. 

Le programme reproduit figure 1 réa- 
lise la programmation de la routine de 
codage-décodage. Lancé par RUN ou 


Figure 1 
Programme d'introduction et de contrôle 
de la routine en langage-machine 


12:REM CHARGEUR 
28: DATA 8A5, 878, & 
65, 818, RAS, 878 
, 866, &1A, 894, & 
A7, 878, &67, &B9 
, 806, 814; &A7; & 

78; 868 
: DATA 88B, &OC, & 
15, &4E, CLE, 889 
, 803, SDF, RBE: & 
01, 8DD, 851; &9E 
, &18, &9A 

:RESTORE : INPUT 
"CLE";CLE, “ADR 

“; ADR:FOR 1=8 

TO 32:READ x: 
POKE ADR+1;, X: 

NEXT 1 

58:REM CONTROLE 
68:A=<8:FOR 1=ADR 
TO ADR+32: A=A+ 
PEEK I:NEXT 1: 
1F A(23309+CLE 
PRINT "ERREUR 

CODES": END 
20:PRINT "PRGM = 
OK":END 
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Figure 2 
Programme de codage-décodage 


Étiquettes Mnémoniques Commentaires 
ADR : LD À, (&7865) Range dans Y 
LD YH, A l'adresse de 
LD A, (&7866) début des programmes 
LD YL, A Basic. 
CONT : LD À, YH Compare avec l’adresse de fin. 
CP À, (&7867) Teste YH. 
JR NZ +06 Va en TRA si +. 
LD A, YL 
CP A, (&7868) Teste YL. 
JR Z +&0C Va en FIN si =. 
TRA : LD A, (Y) A = Code Basic. 
CP XL, clé Compare XL avec la clé. 
JR NZ +03 Va à INC A si +. 
DEC A Ote 1 au code (décodage). 
JR +01 Va à LDI (Y), A. : 
: décoder, tapez CALL ADR, CLE. Dans 
INC A Ajoute 1 au code (codage). , : dé: 
+ ( ge) cet exemple, faire Z=60 puis CALL 
LDI (Y), A Remet le code en Basic et ajoute 1 &78C0,Z pour récupérer le Basic 
à l'adresse Y. reconstitué. Si vous aviez codé 10 fois 
JR —&18 Va en CONT. le programme (10 fois CALL &78C0), 
FIN : RTN Fins rend la ituin où Prec il aurait fallu le décoder autant de fois 


Note : après l’appel par CALL ADR, Z le registre X du microprocesseur contient la 


valeur de Z. 


(Z=60 puis 10 fois CALL &78C0,Z). 


Et le pirate indélicat n’a même pas la 
possibilité de rechercher la clé en 


par GOTO 10, il pose deux questions : 
CLE et ADR. Il s’agit de la clé du 
codage-décodage (ne l’oubliez pas) et de 
ladresse en mémoire du premier octet 
où la routine sera programmée. Intro- 
duisez, par exemple, 60 pour la CLE 
(tout nombre compris entre O et 255 
convient) et &78C0 pour ADR (adresse 
de la variable A$). 


Aucune marge 


d'erreur possible 


Alors le chargement s'effectue. Si 
tout se passe bien, c’est-à-dire si vous 
n’avez commis aucune erreur de frappe, 
en particulier dans les codes des lignes 
20 et 30, le message PRGM = OK doit 
s’afficher. En revanche, si un code est 
mal tapé (&A4 au lieu de &AS, par 
exemple) alors le message ERREUR 
CODES apparaît. Il est impératif de ne 
faire aucune erreur de programmation. 
S’il y en a, revoyez les lignes de DATA. 


Vous aurez noté, à l’examen de la 
* ligne 30 que la CLE est elle-même pro- 
grammée dans la routine. Vous pourrez 
donc la modifier ultérieurement en 
tapant : POKE ADR + 22, nouvelle clé. 


Pour coder les lignes de Basic, dès 
lors il suffit de taper CALL ADR. Dans 
notre exemple, CALL &78C0. Vous 
pouvez consulter ce qui reste du Basic ! 


Essayez donc de l’utiliser… Pour 
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TR 


Figure 3 
Organigramme 


# <— adresse du 


essayant tous les nombres de 0 à 255 car 
chaque essai infructueux code un peu 
plus le programme. 


Les amateurs de langage-machine 
trouveront un grand intérêt à éplucher 
la liste ‘‘mnémonique”? de la figure 2 et 
l’organigramme qui l’accompagne 
(figure 3). 

Décodez bien, maintenant. Mais, de 
grâce, n’oubliez surtout pas l’adresse du 


programme codeur, ni votre clé. 
Sinon. 


DEBUT : 
en XL se trouve 
la valeur de Z 


début du Basic Mare RIVET 


Ÿ= adreste 
de. Pin du Basic? 


oui 


ajoute 1, cod 


(y}= (y}+4 


Retranche 1, 
décodaae 


(Y}= (ÿ)-4 


ajoute À à l'adresse 


ÿ= ÿ+4 
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TG, 


PROGRAMME DE TRI 


UN TRI A GRANDE VITESSE 


E problème des tris est un des thèmes poignants 
de la littérature informatique. II n'est pas 


des plus simples. La méthode de Shell-Metzner est 
une formule facile à coder, et efficace pour les 
petites ou moyennes listes, La même idée de base, 
mais bien plus raffinée, se retrouve dans le tri 
Quicksort de Hoare. Il s’agit de déplacer plus 
rapidement et en moins d'étapes les éléments 
d’une liste qui sont les plus éloignés de leur 


position finale. 


Si le principe du tri Quicksort est 

facile à saisir, sa réalisation pose 
bon nombre d’embüûches. Surtout dans 
un langage comme le Basic. Celui-ci 
semble avoir été expressément conçu 
pour nous empêcher d’utiliser des for- 
mules récursives, c’est-à-dire qui se font 
appel à elles-mêmes afin de simplifier un 
problème jusqu’à ce que la solution 
devienne évidente (ce qui s’applique 
admirablement au raisonnement tenu 
par l’auteur du présent algorithme). 


Des listes 
plus courtes 


Hoare s’est dit que si on pouvait 
prendre une liste, choisir un élément au 
milieu, et déplacer à sa gauche toutes les 
valeurs qui sont plus petites et à sa 
droite toutes celles qui sont plus gran- 
des, on aurait deux listes plus courtes à 
trier, ce qui est beaucoup plus aisé. 
Poursuivant le même raisonnement, on 
continue à réduire chaque liste obtenue 
par la même méthode, et ainsi de suite, 
jusqu’à n’avoir que des listes d’un ou 
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deux éléments, pour lesquelles la solu- 
tion est simpliste. 


Comme chacune de ces listes ne peut 
contenir, en raison du principe de base, 
que des éléments plus petits que ceux de 
sa voisine de droite, le problème est par 
le fait même résolu. Ce genre d’algo- 
rithme se prête d’ailleurs à des traite- 


OUAIS BIN C'EST PO 
ÇA Qui VA MTRIER 
MES LENTILLES 1/22 


ments bien plus élégants dans des lan- 
gages qui admettent la récursion, 
comme Pascal ou Logo. 


Il se pose cependant quelques petites 
difficultés : que se passe-t-il si la liste est 
irrégulière, c’est-à-dire si on n’a pas un 
nombre égal d’éléments à droite et à 
gauche de l’élément central ? Et com- 
ment, avec cette multitude de petites lis- 
tes, fait-on pour savoir où on en est 
rendu ? 


Simulation 


d'une pile 


La réponse au premier problème est 
de rendre mobile la partition centrale 
qui divise la liste. Si on a trop de valeurs 
à gauche, on la déplace vers la droite, 
et vice versa... mais en prenant bien 
garde de ne pas laisser glisser dans l’au- 
tre bloc des valeurs qui dépassent la 

, limite ! Ce qui n’est pas évident, il s’en 
faut. 


Pour garder en mémoire le point où 
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Tri de Hoare 

Programme en pseudo-langage 
Auteur Yves Leclerc 

Copyright LIST et l’auteur 


on en est, en l’absence d’un mécanisme 
de récursion (qui fait le gros de ce tra- 
vail pour nous), on crée (ou on simule, 
en Basic) une « pile opérationnelle » 
dans laquelle on entrepose des pointeurs 
vers les limites des parties de la liste sur 
lesquelles on travaille. Une fois chaque 
étape terminée, on peut reprendre ces 
pointeurs sur la pile et s’en servir pour 
définir les nouvelles limites. 


Voici deux versions de l’algorithme de 


Pour une liste ELEMENT (T) de T éléments : 
Mettre T sur la pile 
Initialiser à 0 la cloison C 
Répéter jusqu’à ce que la pile soit vide : 
Mettre la limite basse B=C 
Mettre la limite haute H = valeur sur la pile 
Si l’espace ainsi défini a moins de 3 valeurs : 
S'il y a 2 valeurs, les mettre en ordre 
Mettre C = sommet de la pile +1 
Enlever le sommet de la pile 
Sinon : 
Choisir un élément central de comparaison M 
Répéter jusqu’à ce que B et H se rencontrent : 
Avancer B jusqu’à ce qu’elle rencontre H ou que 
ELEMENT (B) soit plus grand que ELEMENT (M) 
Reculer H jusqu’à ce qu’elle rencontre B ou que 
ELEMENT (H) soit plus petit que ELEMENT (M) 
Echanger ELEMENT (B) avec ELEMENT (H) s’ils 
sont différents 
Si B est égale ou supérieure à M, la reculer 
Si H est différente de M, échanger ELEMENT (B) 
avec ELEMENT (M) 
Placer B sur la pile 
Fin. 


Tri de Hoare 300 REM SOUS-PROGRAMME DE TRI QUICESORT 


Programme en Basic 


Auteur Yves Leclerc 310 REM 
Copyright LIST et l’auteur 


Hoare, l’une en « pseudo-langage » qui 
permet de mieux en comprendre le 
mécanisme, l’autre en Basic. Le pseudo- 
code se comprend tout seul, sans besoin 
d’autres explications que celles données 
par la liste (voir le programme Tri de 
Hoare en pseudo-langage). 


Une bonne 


vitesse 


Le programme en Basic est dans un 
Basic des plus standards à une exception 
près : la fonction SWAP du Basic de 
TSC (Goupil), sur lequel ce code a été 
testé, permet d’échanger directement les 
contenus de deux variables. Si vous ne 
l’avez pas, vous remplacez par la for- 
mule habituelle, soit U = E(x) : E(x) = 
E(y) : E(y) = U. 

Le programme effectuera un tri à une 
bonne vitesse (de deux à cinq fois plus 
vite que le tri de Shell-Metzner en 

- moyenne, pour des listes assez longues, 
de 200 éléments et plus), mais il y a place 
pour beaucoup d’optimisation : partout 
où il y avait doute, la vitesse a été sacri- 
fiée à la clarté. Rien ne vous empêche 
de faire le contraire. 


Yves LECLERC 
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320 REM TRI D'UNE LISTE Et) DE T ELEMENTS 
3936 REM NUMEFROTES DE O À T-] 

340 REM PO EST UNE PILE OPERATIONNELLE 

350 REM SIMULEE, DONT LE NIVEAU EST N. 

360 REM C EST LA CLOISON, B ET H LES LIMITES 
370 REM HAUTE ET BASSE, 


\g 


30 REM 

1900 N=G:P(NIST:C=Q 

1010 B=C-1:H=P(N) 

1020 IF H€C+3 GOTO 1130 


1030 M=INT(R+H)/2) 

1040 E=8+1:IF B=H GOTO 1090 
1050 IF EiB)<=EiM) GOTO 1040 
15660 H=H-T:IF E=H GOTO 1090 
1070 IF ECH)>=E(M) GOTO 1060 
108G SWAP E(B),E(H):GOTO 1040 


1090 IF B>=M THEN E=B-1 

1100 IF HOM THEN SWAP E(B),E(M) 
1110  N=N+1:P(N)=B 

1126 GOTO 1160 


114û C=PED+1 

7150 N=EN-1 

1160 IF N»=0 GOTO 1010 
1170 RETURN 
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ET M LA VALEUR MOYENNE. 
380 REM SWAP EST UNE FONCTION D'ECHANGE DE Z VALEURS, 


IF H=C+2 AND E(CIDE(C+1) THEN SWAP EXCNE(C+1) 


PROGRAMMATION 


LA FONCTION MODULO 
N’EST PLUS 
CE QU'ELLE ÉTAIT 


A HP-41 C possède une fonction arithmétique 
souvent méconnue car on ne la trouve que 
rarement employée en informatique (et vice- 
versa) : la fonction modulo, dite MOD, qui calcule 
le reste de la division entière d'un nombre Y par 


un nombre X, 


En fait, ce calcul précis de res- 

te d’une division peut s’avérer 
fort utile là où on ne s’y attend pas ; 
l’essentiel étant d’y songer ! L’opéra- 
tion modulo (Y ENTER X MOD 
s’écrit aussi y modulo x) est très sim- 
ple à concevoir mais elle est une porte 


ouverte sur un monde merveilleux. 
On teste la divisibilité d’un nombre 
Y par un autre nombre X en exami- 
nant le résultat de l’opération MOD. 
S’il est entier, Y est divisible par X, 
sinon il ne l’est pas (évidemment). 
Avec MOD cela s’écrit : Y ENTER X 


VIENS VOIR 
C'EST SUPERBE ! 
LES DIiVisioNs 
SONT EN FLEURS ! 


QU 


rl 


| 


der, 
ER —. 


MOD. Si le résultat est 0, alors Y est 
divisible par X ; Y modulo X vaut 0. 


Dans le même ordre d’idées élémen- 
taires, si l’on désire tester la parité 
(pair ou impair) d’un nombre Y, on 
programmera : Y ENTER 2 MOD. Si 
Y est pair le résultat est nul, sinon il 
vaut 1. Zéro et un ? Il est des ama- 
teurs éclairés dont l’esprit fait « tilt » 
(bien programmé...) dès qu’on parle 
de zéro et un. C’est ici avec raison. 

Pour reproduire sur HP-41 C la 
fonction d’algèbre booléenne XOR (ou 
exclusif) qui, en considérant deux chif- 
fres 0 ou 1, retourne 1 s’ils sont diffé- 
rents et 0 sinon (0 et 0 donne 0, let 1 
donne 0, 1 et O0 donne 1, 0 et 1 donne 
1) on utilise la séquence de fonctions : 
+ 2 MOD. 


nt! 


e)) 


S« 
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Mais la logique binaire n’est pas la 
seule accessible avec MOD. Des 
niveaux plus complexes peuvent être 
atteints : 3 MOD introduirait la logi- 
que « ternaire »… 


Appliquée à d’autres nombres que 
les entiers naturels, la fonction MOD 
ouvre des perspectives. Mais il devient 
nécessaire de disposer d’une défini- 
tion sans ambiguïté de la fonction 
MOD. 


Hé... 


pas si vite ! 


Soient Y et X deux nombres, le 
résultat R de la fonction MOD (Y 
modulo X) correspond à : R = Y — 
Xq, où q se définit comme /e plus 
grand nombre entier inférieur ou égal 
au quotient Y/X. 


Y ENTER X MOD (X>0) 1 
ig. 


Ainsi, pour Y = 8 et X = 3, Y 
modulo X (soit Y ENTER X MOD) 
vaut 2. On retrouve ce résultat avec le 
quotient Y/X = 2,666... et, donc, 
par définition q vaut 2. Alors 8 — (3 
X 2) = 2, résultat R de l’opération 
(attention : ici R et q sont égaux, c’est 
un hasard ; avec Y = 11 et X = 3, 
les résultats auraient été différents..…). 


Pas si vite ! J'entends déjà certains 
ajouter que q n’est que la partie 
entière du quotient Y/X. S’agissant 
des nombres choisis ci-dessus (de 
signes identiques), c’est exact. Mais 
avec —8 modulo 3 et 8 modulo — 3 ? 
8 CHS ENTER 3 MOD retourne bien 
1. Si —8/3 donne —2,66... la valeur 
de q est —3 selon notre définition, /e 
plus grand nombre entier inférieur ou 
égal à Y/X. Ce n’est pas exactement 


x 
Y ENTER X MOD (X < 0) 


fis. 
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la même chose que — 2,66... ENTER 

FRC -. 
Graphiquement, 

modulo, R — 


l’opération 
Y modulo X, corres- 


pond à une courbe en dents de scie 
(figure 1) pour X positif. Les figures 
suivantes (figures 2 et 3) représentent 
cette fonction, respectivement, pour 
X négatif et X positif (mais au résul- 
tat inversé par CHS). 


-2X 
Y ENTER X MOD CHS (X)> 0) 


fig3 


Ces courbes montrent le chemin à 
l’électronicien qui souhaiterait simu- 
ler, par exemple, le fonctionnement 
d’un circuit électrique: signal en 
dents de scie de période X. 


Les graphes sont continus, donc 
valables aussi pour des valeurs Y et X 
non entières. 


dignes de figurer dans la rubrique 
« Misez p'tit optimisez ! ». 

Éliminer le premier chiffre d’un 
nombre quelconque. Par exemple, si 
X = 3527,32 on veut obtenir 527,32. 
Solution en 10 octets seulement qui 
emploie deux fois la fonction MOD : 
RCLX LOG RCLX 1 MOD -— 10tX 
MOD. 


D'autres 


problèmes 


Générer un nombre pseudo- 
aléatoire compris entre 0 et 5 mais 
avec une probabilité double de tirer 
les numéros 0, 1 et 2 (un dé pipé en 
quelque sorte). Il suffit d'employer un 
générateur non truqué de nombres 
pseudo-aléatoires (voir le livret 
d’applications de la HP-41 C) qui tire 
de 0 à 8 (et non pas de 0 à 5). Le 
résultat est soumis à l’opération 6 
MOD ce qui donne le tableau sui- 
vant : 


Avec Ÿ non entier et X toujours 
égal à 1 le résultat sera la différence 
entre Y et le plus grand nombre entier 
inférieur ou égal à Y : 

2,768 ENTER 1 MOD donne 0,768 
2,768 CHS ENTER 1 MOD donne 
0,232. 

Et c’est ainsi qu’on arrive à la par- 
tie entière d’un nombre, vraie au sens 
mathématique de la définition : /e 


plus grand nombre entier inférieur ou 
égal. Et cette définition n’est pas celle 
de la classique fonction INT, voyez 
les nombres négatifs. La séquence 
sera : RCLX 1 MOD -. 


Guëère éloignée, la suite : RCLX 1 
CHS MOD -— retournera /e plus petit 
nombre entier supérieur ou égal. 


Et si l’on ne voulait conserver d’un 
nombre positif que ses décimales à 
partir de la nième ? C’est n CHS 10 
MOD qu’il convient de programmer. 
Inversement, rajouter RCL X en tête 
et — en fin, tronquera le nombre à sa 
nième décimale. 


A titre d'illustration d’emplois, 
parfois peu orthodoxes, de MOD, 
voici quelques problèmes, résolus, 


Nombre tiré _[o[1[2/3/4/s[e]eo 
mon _[oli)213/4/s/6l0l1|2] 
[sMoD | 


Les chiffres 0, 1 et 2 apparaissent 
deux fois dans les possibilités de 
tirage après 6 MOD et ont donc une 
probabilité double (soit 2/9) d’être 
tirés par rapport à 3, 4 ou 5. 


Mieux : un dé « super-pipé ». Le 
chiffre 0 doit avoir une chance de sor- 
tir trois fois plus grande que les chif- 
fres 3, 4 ou 5. 


jolif2[sfafslofolif2 


Le tableau ci-dessus donne le traite- 
ment subi par un nombre pseudo- 
aléatoire compris entre 0 et 9, soit 7 
MOD 6 MOD. 


La fonction MOD a bien des tours 
dans son sac. Elle offre souvent une 
solution élégante dans des situations 
où l’on songe plutôt à une longue 
suite d'instructions classiques. Si vous 
avez mésestimé MOD jusqu'ici, il 
serait peut-être temps de réviser votre 
jugement. 


Robert PULLUARD 
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C’est dans le cadre d’une réunion 

très officielle du Cobol Codasyl 
que l’on s’est réjoui cette année de l’ex- 
cellente santé du client, dont on fêtait 
le vingt-cinquième anniversaire. 


Si le mot « Codasyl » n’évoque rien 
pour vous — peut-être une sorte de 
médicament ? — vous êtes pardonné, 
bien qu’il concerne un passage passion- 
nant de l’histoire de l’informatique. 
Reprenons le long chemin qui mène de 
la programmation des monstres Mark I, 
Eniac et autres SSEC jusqu’à nos jours. 


Il fallait 


un nouveau langage 


Au début était le langage-machine, 
vite relayé par l’ Assembleur et le très 
célèbre Fortran de John Warner Ba- 
ckus (10 novembre 1954). Avec cette 
invention, les langages évolués étaient 
nés qui, d’une certaine manière, 
allaient permettre à des non- 
informaticiens de travailler sur ordina- 
teur : sautait là un verrou formidable. 

Mais Fortran était marqué par la pre- 
mière vocation de l’informatique : les 
calculs mathématiques. Très vite, elle se 
découvrait une autre zone de dévelop- 
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E Cobol n’est pas mort. La disparition de ce 
très vieux langage était pourtant prévue par 
certains pour... le début des années soixante-dix ! 
Il a aujourd'hui vingt-cinq ans et reste le langage 


le plus utilisé au monde. 


pement, qui allait devenir gigantesque : la 
gestion. Les exemples classiques sont 
bien connus : réservation de billets 
d’avion, programmes de paye, établis- 
sement des feuilles d’impôts — déjà 
Blaise Pascal avait fabriqué sa machine 
pour aider son père, haut fonctionnaire 
du fisc rouennais, à calculer les tailles 
en Haute Normandie ! 


Pour toutes ces applications, Fortran 
était plus que malcommode (il le restera 
jusqu’en 1977 pour l’essentiel). Il fallait 
donc innover avec la mise au point d’un 
autre langage, conformément au sté- 
réotype de l’époque qui voyait informa- 
tique scientifique (beaucoup de calculs, 
peu de données) et informatique de ges- 
tion (beaucoup de données, peu de cal- 
culs) se partager à jamais deux champs 
d’activité aux modalités bien disjointes. 


Contrairement à une idée reçue, ce 
n’est pas Cobol qui fut le premier à être 
conçu dans ce but. Il eut plusieurs pré- 
décesseurs. Ainsi, le Flowmatic fut mis 
au point en 1958 chez Univac (Reming- 
ton Rand, devenue aujourd’hui Sperry 
Rand), compagnie consacrée aux ordi- 
nateurs du même nom développés par 
John William Mauchly (1907-1980) et 
John Presper Eckert (né en 1919). Ces 
derniers avaient conçu et construit 
l’Eniac en 1946 à la Moore School of 
Electrical Engineering de l’Université de 
Pennsylvanie. Deux autres langages 
existaient encore : Aimaco (Alr MAte- 
rial COmmand) mis au point pour l’Ar- 
mée de l’Air, et Comtran (COMmercial 
TRANSslator) conçu par IBM. 


Les concepteurs de Flowmatic et 
d’Aimaco avaient reçu séparément 
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l’aide d’une même personne qui avait 
l’art d’être présente à peu près partout 
où il se passait quelque chose d’intéres- 
sant. 


L'incroyable 


Grace M. Hopper 


Peut-être certains ont-ils deviné : il 
s’agit bien de l’incroyable Grace Mur- 
ray Hopper, née le 9 décembre 1906 à 
New York, programmeur des Mark I, 
IT et ITT — elle y calcula notamment une 
table de sinus —, inventeur du mot 
« bug » à Harvard en août 1945, théo- 
ricienne de la notion de compilateur dès 
1951, co-mère de l’Assembleur et de 
Mathmatic, professeur de mathéma- 
tiques et d’engineering à la Moore 
School, et, depuis la mise à la retraite 
de l’Amiral Hyman Rickover, le plus 
ancien officier de marine américain en 
activité... C’est pourtant Cobol qui 
donnera 'à Grace Hopper sinon ses 
galons les plus prestigieux (car ses per- 
formances intellectuelles des années 
quarante et cinquante sont incompara- 
bles) du moins sa plus grande notoriété, 
puisqu’elle fut l’âme du fameux comité 
Codasyl dont nous allons voir le rôle 
essentiel dans l’histoire des langages. 


A la suite du précédent créé par des 
universitaires européens qui s'étaient 
déjà réunis à Zurich au printemps 56 
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Cobol partant à la conquêle de nouveaux territoires (allégorie) 


pour étudier la possibilité de créer un 
néo-Fortran (qui deviendra Algol), le 
Centre de Calcul de l’Université de 
Pennsylvanie fut à l’origine, le 8 avril 
1959, de la décision de définir un lan- 
gage de gestion universel. Le DOD 
(Department Of Defense), promoteur 
d’Aïmaco, aida à concrétiser ce vœu par 
un séminaire tenu au Pentagone les 28 
et 29 mai 1959 d’où sortit, le 4 juin, le 
célèbre Codasyl (COmmittee on DAta 
SYstem anaLysis) réunissant gouverne- 
ment des Etats-Unis, constructeurs et 
utilisateurs. Ces dates (1) ne peuvent que 
susciter un sentiment d’admiration 
devant une administration capable de 
réagir en moins de deux mois pour une 
tâche qui aurait pu sembler de routine. 
Efficacité semble bien être un maître 
mot de la langue américaine ! 


Le nom du langage vient de l’un des 
sous-comités de Codasyl (il est tiré de 
COmmon Business Oriented Lan- 
guage). Ce groupe était dit « à court 
terme » ; il sut en effet aller très vite 
puisque le premier projet était prêt dès 
septembre. C’était surtout Flowmatic 
qui avait été utilisé pour la définition de 
Cobol. Un autre sous-comité, à plus 
longue vue, voulait consacrer davantage 
de temps à établir un cahier des char- 


| 


() Elles sont tirées, ainsi qu’un grand nombre 
d'informations de cet article, d’un livre de René 
Moreau, Ainsi naquit l’informatique, paru chez 
Dunod en 1982. 


RE 


ges plus précis. Le Pentagone prit alors 
une décision incroyable : il annonça que 
les commandes gouvernementales ne 
seraient désormais passées qu’aux cons- 
tructeurs ayant des compilateurs Cobol. 
Parallèlement, ce dernier langage était 
déclaré, en quelque sorte, d’utilité publi- 
que et ne pouvait être considéré comme 
la propriété exclusive d’aucune compa- 
gnie (premier pas vers la non-breve- 
tabilité du logiciel). 

Cette histoire a été souvent racontée 
ces dernières années, en particulier parce 
qu’elle s’est répétée au moins une fois. 
Le fameux Department Of Defense prit 
en effet une seconde initiative analogue 
lorsqu'il mit au concours vers 1976 la 
conception du langage ADA - challenge 
gagné en 1979 par un groupe d’ingé- 
nieurs français de chez Bull dont Jean 
Ichbiah. 


 S’unir devant 


l'adversaire 


On comprend bien les raisons vitales 
que présente, pour un ministère de la 
Guerre, l’unification des langages 
employés par tous ceux qui dépendent 
de lui : en cas de conflit, si la marine, 
l'air, l’armée de terre et les fournisseurs 
en logistique « babélisaient » à qui 
mieux mieux, leurs ordinateurs bafouil- 
lants rendraient à l’ennemi bien plus de 
services que toutes les cinquièmes colon- 
nes du monde ! Voilà qui explique les 
démarches « dirigistes » du Pentagone 
dans l’histoire de l’informatique et jus- 
tifie son coup de force, même si l’on 
peut regretter effectivement les grandes 
lourdeurs du langage finalement 
adopté, peut-être un peu trop 
rapidement. 


Bien entendu, les choses ne sont pas 
tout à fait aussi simples : la première 
codification complète sérieuse n’eut lieu 
qu'entre 1962 et 1963, et plusieurs misés 
à jour (dont une en 1968) se produisi- 
rent jusqu’à la publication de la norme 
ANSI de 1974 — comme pour Fortran 
revu trois ans plus tard — pour tenir 
compte de l’évolution considérable des 
matériels, y compris des nouvelles pos- 
sibilités graphiques inconnues au 
moment de la conception de ces deux 
ancêtres. Mais, d’après la dernière réu- 
nion de Codasyl à Londres cet été, 90 % 
du Cobol originel est encore en fonc- 
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COBOL TOUJOURS JEUNE 


tion. Par ailleurs, ne serait-ce que parce 
qu’il est toujours enseigné aux Etats- 
Unis dans les écoles professionnelles — 
par lesquelles passent la plupart des pro- 
grammeurs —, il reste de loin le langage 
professionnel le plus utilisé en dépit de 
tous ses défauts. 


A l'attention 


des anglophones 


Peut-être faut-il dire maintenant quel- 
ques mots sur les particularités de 
Cobol. Au contraire de Fortran, un 
habitué d’ordinateur individuel ne se 
sent pas a priori en terrain connu 
(quoiqu’on ignore souvent qu’il en 
existe des versions, parfois excellentes, 
sur des matériels très courants comme 
TRS-80 modèle I, II, III ou IV). La rai- 
son principale en est que ce langage très 
verbeux évite le plus possible les symbo- 
lisations de type mathématique. Au lieu 
d’écrire X = Y pour affecter à la varia- 
ble X la valeur contenue dans Y, Cobol 
emploie la périphrase MOVE Y TO X 
(les créateurs craignaïent par exemple les 
réactions des utilisateurs, généralement 
non scientifiques, devant le « scanda- 
leux » : X = X + 1). Un produit aussi 
simple que X=Yx#Z se traduit par le 
pénible COMPUTE X = Y+Z voire, sur- 
tout dans les versions plus anciennes, 
par l’horrible MULTIPLY Y BY Z 
GIVING X. 


On a compris le but de ces manœu- 
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_ ORDINATEUR 
TRès TERPLEXE 


vres : le Cobol se veut presque transpa- 
rent, c’est-à-dire lisible par un (anglo- 
phone) quasi ignorant de toute formu- 
lation mathématique. Il est vrai que la 
lecture d’une liste où le signe universel 
< est remplacé par les mots LESS 
THAN est peut-être plus claire pour qui 
a gardé mauvais souvenir de ses années 
de collège. Mais on ne saurait dire que 
l'on y gagne en place ; Cobol est respon- 
sable de la disparition de forêts, trans- 
formées en tonnes de papier, qu’il pha- 
gocyte abusivement. La clarté se paie 
par un certain alourdissement qui se 
retourne sans doute contre la volonté 
des auteurs. 


Le grand intérêt de Cobol réside, à 


n Pour survoler Cobol 

Le lecteur intéressé pourra par exem- 
ple se reporter à l’excellent ouvrage d’ini- 
tiation « Langages de programmation » 
de Stéphane Berche et Claude Lhermitte 
(PSI, 1982) où les huit pages qui sont 
consacrées au Cobol donnent un bon 
aperçu de ses modalités. Ou encore à un 
article assez ancien (mai 1980) du numéro 
17 de notre confrère l’Ordinateur Indi- 
viduel, avec un exemple malheureuse- 
ment non détaillé, faute de place, de pro- 
gramme financier. 

Enfin le livre « Cobol : perfectionne- 
ment et pratique » de Michel Kout- 
chouk (Masson, 1981), expose avec 
grande précision une chaîne de traitement 
comptable assez complète formée de huit 
programmes et deux sous-programmes 
dont la lecture, abondamment commen- 
tée, éclaire l’essentiel. 


nos yeux exigeants d’aujourd’hui, dans. 
sa grande structuration. Qu’il suffise de 
dire qu’une liste en Cobol, numérotée 
comme en Basic, est constituée néces- 
sairement de quatre parties soumises 
chacune à une syntaxe très rigoureuse 
(gare à celui qui oublie un point final 
où il faut, et en met de façon intempes- 
tive !). Pour obtenir un texte accepta- 
ble, plusieurs compilations sont néces- 
saires (surtout compte tenu de la lon- 
gueur des instructions), soit à cause des 
erreurs d’écriture, soit parce qu’il y a eu 
faute dans l’analyse des nombreuses 
ouvertures et fermetures de fichiers 
séquentiels ou indexés, par les OPEN, 
CLOSE, READ, WRITE... 


Indépendance 


avant tout 


Ces « divisions » (identification, 
environment, data et procedure) sont 
elles-mêmes décomposées en « sec- 
tions » dont l’ordre est immuable. Par 
exemple, l’environment divison com- 
porte nécessairement la configuration 
section détaillant l’ordinateur sur lequel 
a été écrit le programme et celui sur 
lequel on doit l’utiliser, donc des ins- 
tructions du type : 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER. IBM-370. 


Ce souci correspond, bien entendu, au 

désir de portabilité du langage, dont 
nous avons vu qu’il se devait de rester 
(presque) totalement indépendant du 
matériel utilisé. Dans des applications 
de gestion, il est également normal de 
trouver, pour chaque variable, des pré- 
cisions sur les formats ; ainsi rencontre- 
t-on des expressions de la forme 
PICTURE 9(6)V9(2) 
(ou 999999V99) qui signifient que le réel 
considéré doit avoir 6 chiffres — éven- 
tuellement nuls — avant la virgule, sui- 
vis de deux décimales. Le reste est clas- 
sique : sous-programmes, tests, boucles 
rendent finalement Cobol assez aisé à 
apprendre... passé le premier effroi 
devant sa légèreté pachydermique ! 


André WARUSFEL 
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MESURER LE BASIC 


OUR évaluer en partie les performances d’un 
ordinateur donné, et plus précisément 

les qualités de son Basic, nous avons retenu 
(provisoirement) dix tests. Ils permettent de 
mesurer la vitesse avec laquelle la machine 
exécute ses appels de sous-programmes et 
diverses instructions de traitement de chaînes de 
caractères, de calculs arithmétiques, d‘opérations 
sur les tableaux de variables, etc, 


La batterie des tests présentée ici 

n’est évidemment pas parfaite. 
Elle permet de se faire une première idée 
de son ordinateur. Mais certaines adap- 
tations peuvent être nécessaires. 


Ainsi pour l’Epson QX-10, les tests 
font apparaître une différence selon la 
forme de l'instruction NEXT. Avec 
NEXT suivi du nom de la variable 
(NEXT 1, par exemple), les boucles se 
révèlent plus longues qu’avec NEXT 
tout seul : le test 1 passe de 21 à 15 
secondes, le test 2 de 56 à 50 secondes, 
le test 3 de 85 à 78 secondes, etc. De 
plus, les fonctions scientifiques travail- 
lent sur seize chiffres significatifs, alors 
que les nombres sont sur 6,5 chiffres 
significatifs. 

Quant au BBC, il appelle certaines 

* adaptations pour les tests 8, 9 et 10. 
Ainsi, le test 8 doit être modifié comme 
suit : 

5 MODE 0 

10 FOR I=1 TO 10000 

15 MOVE 0,1023::DRAW 1279,0 
20 NEXTI 

30 END 


Les tests 9 et 10 subissent les mêmes 
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transformations. 
devient : 

5 A$=‘LISTEST 

6 X=OPENOUT ‘‘FICHIER’’ 
10 FOR I=1 TO 10000 

15 PRINT # X,AS$ 

20 NEXT I 

25 CLOSE # X 

30 END 


Avec son 6502 à 2 MHz, le Basic du 
BBC est l’un des plus rapides du mar- 
ché actuel. Seules les routines scienti- 
fiques ne semblent pas optimisées. 


Les dix tests ont été appliqués à deux 
ordinateurs de conception différente. 
Cela peut donner une idée de leurs capa- 
cités respectives. Il ne s’agit pas, ici, de 
les comparer. 


Ainsi, le test 9 


LIST 
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Test 1 - Boucle vide 

10 FOR I = 1 TO 10000 
20 NEXTI 

30 END 


Test 2 - Sous-programmes 


10 FOR I = 1 TO 10000 
15 GOSUB 100 

20 NEXTI 

30 END 

100 GOSUB 110 

110 RETURN 


Test 3 - Matrice 


5 DIM A(10,10) 

10 FORI = 1 TO 10 
12 FOR J = 1 TO 10 
13 FOR K = 1 TO 100 
15 AI) = K 

17 NEXTK 

18 NEXTJ 

20 NEXTI 

30 END 


Test 4 - Opérations sur les chaf- 
nes de caractères 


5 A$ = « LISTEST » 
10 FOR I = 1 TO 10000 
15 B$ = LEFTS(AS$,2) 
+ MIDS(AS,3,3) 
+ RIGHTS(A$,2) 
20 NEXTI 
30 END 


Test 5 - Arithmétique 


10 FOR I = 1 TO 10000 
15 J = [+7 + 3/1 

20 NEXTI 

30 END 
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Test 6 - Calcul scientifique 
10 FORI = 1 TO 10000 
15 J = SIN (LOG(I) 
20 NEXTI 

30 END 


Test 7 - Affichage 

10 FORI = 1 TO 10000 

15 PRINT CHRS$(11) ; « LIS 
TEST » ; I 

20 NEXTI 

30 END 


Test 8 - 
graphique 
10 FOR I = 1 TO 10000 
15 LINE (0,0)-(319,199) 
20 NEXTI 

30 END 


Tracé d’une ligne 


Test 9 - Ecriture de fichiers 
5 A$ = « LISTEST » 
6 OPEN«O», # 1, 
« FICHIER » 
10 FOR I = 1 TO 10000 
15 PRINT # 1, A$ 
20 NEXT I 
25 CLOSE 
30 END 


Test 10 - Lecture de fichiers 


6 OPEN«I»,# 1, 
« FICHIER » 
10 FORI = 1 TO 10000 
15 INPUT # 1, AS 
20 NEXTI 
25 CLOSE 
30 END 


DE RETOUR 
DE SiLICON 
ALLEY. .. 


Les dix tests appliqués au QX-10 


Tests 


1 - Boucle vide 

2 - Sous-programmes 

3 - Matrice 

4 - Chaînes de caractères 
5 - Arithmétique 

6 - Calcul scientifique 


7 - Affichage 
8 - Tracé graphique 


9 - Ecriture fichier 


10 - Lecture fichier 


1 - Boucle vide 
2 - Sous-programmes 

3 - Matrice 

4 - Chaînes de caractères 
5 - Arithmétique 

6 - Calcul scientifique 


7 - Affichage 
8 - Tracé graphique 


9 - Ecriture fichier 


10 - Lecture fichier 


Résultats 


21 
56 
85 
146 
99 
305 
(16 chiffres) 
499 
67 
(320 x 200) 
132 
(disquette) 
126 
(disquette) 


Les dix tests appliqués au BBC 


Résultats 


7 
15 
32 
41 
57 
405 
(9 chiffres) 
114 
239 
(160 x 256) 
1944 
(cassette) 
1944 


67 
(640 x 400) 


Les temps sont exprimés en secondes. 
(Ces résultats nous ont été envoyés par Jean-Marie Donat.) 


468 
(640 X 256) 


(cassette) 
Les temps sont exprimés en secondes. 
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UNE PROCÉDURE PASCAL 


La conversion des minuscules en 


NE procédure Pascal permet de convertir une majuscules passe, en Pascal, par 
chaïne comportant éventuellement des “" Procédure. Celle-ci est déclarée : 


procedure majuscules (var chaine : 


minuscules en une chaîne identique, mais ne string) ; 


L’unique paramètre de ce sous- 


possédant que des majuscules. Voilà qui donnera ssogramme, CHAINE. est transma ne 


un peu de souplesse aux applications D 
in fo rma tiques. de caractères. Cette variable est retour- 


née, et contient au retour la chaîne ori- 
ginale, dont les lettres alphabétiques ont 
été converties en majuscules. 


Cette procédure transforme deux 
types de caractères. La première caté- 
gorie concerne les lettres minuscules 
courantes. Celles-ci sont tout simple- 
ment transformées en majuscules. 


Cédilles et 


accents divers 


Le second type de caractères qui est 
affecté par ce sous-programme est celui 
des lettres propres aux claviers français 
AZERTY. En effet, ces claviers géné- 
rent les lettres suivantes : a accent grave, 
c cédille, e accent aigu, e accent grave, 
et u accent grave. 


Ces différents caractères sont conver- 
tis en la lettre majuscule qui leur est 
associée. 


La conversion de chaînes de caractè- 
N° 3- OCTOBRE 84 LIST - PAGE 61 


UNE PROCÉDURE PASCAL 


MINUSCULE EN 


res est très utile, dès que l’on désire don- 
ner un peu de souplesse aux program- 
mes informatiques. Considérons en 
effet une application comme la gestion 
du personnel d’une entreprise. Si cet 
ensemble de programmes est suffisam- 
ment convivial, l’accès aux individus 
s’effectue, non pas à partir d’un matri- 
cule, mais plutôt à l’aide d’un nom 
abrégé. 

Celui-ci sera généralement une chaîne 
de huit ou dix caractères extraite du 
nom complet de la personne. Ce peut 
être, par exemple, les dix premiers 
caractères, ou les dix premières conson- 
‘nes du nom. Le nom abrégé représente 
donc une clef d’accès. 


Si l’on observe le comportement des 
utilisateurs d’un tel système, on cons- 
tate immédiatement que ces noms abré- 
gés sont souvent saisis d’une façon 
incorrecte. Telle clef est entrée en 
minuscules, telle autre est indiquée avec 
une initiale majuscule, les autres lettres 
étant minuscules, une troisième étant 
saisie sans accent alors que le nom com- 
plet en comporte un. 


Il est bien difficile avec tout cela de 
retrouver un individu dans le fichier du 


Conversion majuscule 
Programme en Pascal 
Auteur Thierry: Chamoret 
Copyright LIST et l'auteur 


MAJUSCULE 


personnel. Et que dire des noms abré- 
gés qui ont été saisis, au moment de la 
création du fichier, en minuscules, et qui 
sont recherchés en majuscules. 


La procédure permet de résoudre ce 
genre de problème, puisque toutes les 
lettres minuscules sont converties en 
majuscules, et puisque les accents dis- 
paraissent. Dans ce cas précis, un appel 
à cette routine sera donc effectué, une 
première fois lors de l’enregistrement 
des noms abrégés dans le fichier, et une 
seconde fois lorsque l’utilisateur du 
système effectuera la saisie d’une telle 
clef. 


La programmation de la routine est . 
assez aisée, à condition de posséder les 
équivalents des lettres spécifiques à la 
France. 


La procédure effectue une boucle sur 
la totalité des caractères de la chaîne, 
passée en paramètre. Ceux-ci sont 
analysés un par un pour savoir s’ils doi- 
vent être traités. 


Dans un premier temps, le sous- 
programme recherche si le caractère est 
une lettre appartenant à l’ensemble des 
minuscules. Si tel est le cas, il est trans- 
formé en majuscule en retranchant à 


procedure majuscules (var chaine : string) 
var i  : integer ; 
car : char ; 
begin 
for i : =1 to length (chaine) do 
begin 
çar : =chainelil ; 
if car in [’a’..’7°] 
then 
car : 
else 
if car in [’à’,'ç”,é” et] 
then 
case car of 
"à "Car = 
C7 2 Car : = 
’é,'è : car : = 
’ù’ : Car : = 
end ; 
chaineli] : = car 
end 
end ; 


= chr(ord(chainelil)-ord(’a’) + ord(A°)) 


cno> 
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son code ASCII celui de la lettre ’a”, et 
en lui ajoutant celui de la lettre A’. 


Si le symbole en cours de traitement 
n’appartient pas à l’ensemble des 
minuscules, il est recherché dans celui 
des lettres accentuées ou cédillées. S’il 
y est présent, un aiguillage, réalisé par 
la construction CASE, permet la con- 
version en majuscule. 


Enfin, lorsque la lettre a été traitée, 
elle est mémorisée dans la chaîne, en 
remplacement de celle qui y était 
auparavant. | 


Et c’est ainsi que les minuscules 
deviennent toutes des majuscules. 


TI ifry ; CHAMORET 
N° 3 + OCTOBRE 84 


LANGAGES ET LANGAGE 


JAVANAIS 


EN BAVASAVIC 


PRÈS le Basic, le Pascal, le Forth et bien 
d’autres, le Javanais va s’introduire dans 


votre ordinateur. 


De deux manières au choix, l’une instantanée, 
primesautière et approximative, l’autre plus lente, 
plus réfléchie, mais aussi, peut-être, infiniment 


plus efficace. 


Le Javanais, rappelons-le à ceux 

qui auraient travaillé pendant leurs 
récrés à l’école primaire (!), est cette lan- 
gue secrète qui consiste à ajouter la 
syllabe AV avant chaque voyelle : bec 
se dit bAVec ; bonjour, bAVonjAVour, 
et, par conséquent, javanais, 
jAVavAVanAVais. 


Pour l’ordinateur, traduire comporte 
trois opérations : la saisie du texte fran- 
çais, le traitement du français et la sor- 
tie du texte javanais. 


Texte français. texte français. tout 
de suite les grands mots ! En Basic, un 
texte, c’est tout simplement une chaîne 
de caractères ; notre saisie se réduira 
donc pour le moment à attendre le texte 
français caractère par caractère. Ce qui 
va donner, si l’on veut traduire « en 
temps réel », comme on dit, GET R$ 
(sur certains Basics, ce sera R$ = 

-INKEY$), avec une boucle d’attente 
quand rien ne vient. Notre sortie, pour 
le moment, se contentera de reproduire 
le français, puisque c’est au traitement 
d’ajouter là où il faut les AV caracté- 
ristiques. Pour le moment toujours, il 
peut se réduire à PRINT R$ suivi d’un 
point-virgule. Le traitement mérite 
réflexion. 


Si la traduction consiste à ajouter AV 
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RS OO ES 


devant chaque voyelle, cela veut dire 
qu’il faut tester chaque caractère. 


Pour tester si l’on est en présence 
d’une voyelle ou d’une consonne, on 
partira du principe philosophique bien 
connu selon lequel tout ce qui n’est 
point voyelle est consonne. Et comme, 
dans notre belle langue française, le 


… AVAVÉ CAVAESAVAR, 
MAVORAVITAVURAVI TAVE 
SAVALAVUTAVANT ! 


« Y » fonctionne rarement comme une 
vraie voyelle, nous le laisserons choir et 
nous bornerons à ajouter AV devant les 
autres voyelles. Retroussons donc nos 
manches et frappons gaiement : 
100 GET RS$:IF R$ =”? ”’ THEN 100 
110IF R$=’’A” OR R$=’”’E” OR 
R$=’"’1" OR R$=’’0’”’ OR 
R$=’’U”’ THEN GOSUB 300 
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200 PRINT RS; 
210 GOTO 100 
300 REM 

400 PRINT ’’AV?’’; 
410 RETURN 


Il vaut mieux numéroter large quand 
on commence ! Ne pas oublier que cer- 
tains Basics ne comprennent pas le GET 
R$ de la ligne 100. Il faudra le rempla- 
cer par R$ = INKEY$, par exemple. Et 
après RUN, en frappant BEC, on 
obtient BAVEC. Essayez aussi avec 
SALUT, JAVA ou CHARLEMAGNE 
FILS DE PEPIN LE BREF. Tout se 
passe bien. 


Maintenant, tapez BONJOUR. Le 
résultat ne se fait pas attendre : 
BAVONJAVOAVUR. 


La voyelle double : 
un premier OS 


Tiens ! Il y a un os. Nous venons de 
choir sur la plaie de la programmation, 
la peste de l’analyse, que dis-je, le 
phylloxéra de l'algorithme : le cas 
particulier ! 


On peut se dire que ce n’est que le 
début, car un cas particulier peut en 
cacher un autre... Ici, c’est une simple 
voyelle double. Bonbonbon. Je reste 
cmale. lacme... calme, je vais vider un 
ou deux cendriers, je range une feuille 
de papier qui dépasse d’un millimètre et 
produit un effet d’inacceptable désor- 
dre sur ma table de travail si méticuleu- 
sement rangée (vous savez ce que c’est) 
et je vais m’armer d’une barre à mines 
d’horloger pour attaquer le problème 
avec délicatesse et circonspection. 


Si les groupes de voyelles gênent, on 
va tester les groupes de voyelles, oh là 
là, on ne va pas en faire une histoire. 
On ne mettra pas de AV si la lettre qui 
précède est une voyelle et puis c’est 
tout ! Voyons, je garde en mémoire la 
lettre précédente par une « siouxe » 
ligne : 

120 A$=RS 
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«On va tester les 
voyelles... » 


Et j'ajoute finement : 

300 IF A$=’"’A” OR A$=’’E’” OR 
A$="1" OR AS$="0"” OR 
A$=’’U” THEN RETURN 

Toc ! Testons : BONJOUR donne... 

BAVONJAVOUR. 


Ça colle. Essayez encore avec VIVE 
LE GRAND BABU ! (1), ou avec DES 
FIGUES, DES BANANES, DES 
NOIX. 


Et là, des jurons énergiques retentis- 
sent : ils sont le contrepoint naturel et 
nécessaire des soirées de pro- 
grammation. 


C’est « FIGUE » qui ne marche pas.. 


En Javanais correct, « figue » se dit 
« favigue », et non « FAVIGAVUE », 
enfin quoi... Encore un cas particulier. 
Et je parie que la même chose existe 
avec les mots en « QUE ». Si le décou- 
ragement croit qu’il va nous abattre. 


Il va de soi que le reste du travail va 
être consacré aux cas particuliers, alors 
j'ajoute, courtoisement, mais tout en 
n’en pensant pas moins, une ligne de ce 
style : 


: 310 IF R$=""U”’ AND (A$ =”’G” OR 


A$=°’Q”) THEN RETURN 


Voilà voilà. On re-teste : DES 
FIGUES devient DAVES FAVIGUES. 
Essayons encore avec ENFIN UN PRO- 
GRAMME..., puis avec QUI AGIT 
BIEN. Dernier résultat : QUI AVAGA- 
VIT BAVIEN. « AVAGAVIT » ? 
« GAVIT » ? « GEAVIT »! Oui, 
alors celui-là, on aurait pu y penser 
avant. C’est le « G » qui se prononce 
« J » devant « I » ou « E ». Non non, 
je ne me fâche pas, je remédie, c’est 
tout, je remédie…. 

320 IF A$ = °’G’’ AND (R$="’E"" OR 
R$ =” 1”) THEN PRINT ’’E’’; 


Naturellement, il va rester bien d’au- 
tres cas particuliers. Pour les découvrir, 
frappons successivement les Mémoires 
de Saint-Simon, les pages jaunes de 
l’annuaire, le dictionnaire de l’Acadé- 
mie ou la réédition de 1972 de « Signé 
Furax » ! 


(1) A moins que vous ne soyez encore en couche- 
culotte, je serais bien surpris que vous ignorassiez 
le chef-d'œuvre de Pierre Dac et Francis Blanche. 
Si tel était le cas, écoutez ou lisez ; vous y appren- 
drez l’hymne du grand BABU : 
Des figues des bananes des noix, 
Des noix des bananes des figues. 

A vous de découvrir la suite. 


Cela dit, ne nous leurrons pas, les dif- 
ficultés qui nous attendent sont telles 
qu’il nous sera impossible de les résou- 
dre dans une traduction simultanée, car 
le programme devra tenir compte éga- 
lement de la lettre qui suit la lettre con- 
sidérée : il va falloir nous résoudre à 
abandonner le « temps réel ». 


En lieu et place de la traduction 
simultanée, la traduction séquentielle 
peut permettre au programme d’explo- 
rer au mieux les cas de figures plus sub- 
tils. Ce que je vous propose ici, c’est un 
embryon de programme, qui ne 
demande qu’à être complété par vos 
améliorations et vos astuces. Vous 
n’avez pas été sans remarquer, par 
exemple, que « QUI » devrait devenir 
« QUAVI ». Comment concilier 
« QUI », « AMERIQUE » et 
« PIQURE »? «FIGUE» et 
« FIGURE » ? Voir plus loin. 


Préparer 


Ja chaîne 


Les trois parties essentielles du pro- 
gramme seront les mêmes, mais elles 
seront traitées différemment, puisqu’au 
lieu du GET, nous allons utiliser 
INPUT, et la chaîne de caractères fran- 
çais — car maintenant, il ne s’agit plus 
de caractères isolés mais de chaînes — 
sera baptisée AS. 


Malheureusement, INPUT ne se prête 
pas toujours de bonne grâce à la saisie 
de phrases entières, puisque les virgu- 
les et les deux-points sont interprétés de 
manière fort peu littéraire par les machi- 
nes qui ne connaissent pas le 
LINEINPUT. 


Une solution peut consister à forcer 
des guillemets en tête de la réponse, 
mais on peut préférer un sous- 
programme par GET qui supprime les 
mouvements de curseur. 


La prudence conseille peut-être de 
préparer une chaîne pour le futur texte 
javanais. Evidemment, au début du pro- 
gramme, cette chaîne sera vide encore ; 
ça donne quelque chose comme : B$ = 
 ??, Notre sortie de texte peut se réduire 
encore à PRINT B$. 


Si la traduction consiste à ajouter AV 
devant chaque voyelle, cela veut dire 
d’une part qu’il va falloir prendre un 
par un chaque caractère de la chaîne A$, 
et d’autre part qu’il va falloir le tester. 


Pour prendre un par un chaque carac- 
tère d’une chaîne, tout Basic un peu pré- 
voyant possède däns son atelier la fonc- 
tion MID$. Comment ? Vous ne con- 
naissez pas encore MID$ ? Mais per- 
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Javanais 
Programme en Basic 


TIRETURH 


1e HO F 
AHC L 
FARTHT CHESCIST 
IF Fe THEHW L 
IF LA 
GuTE 


FEAËHRE :LA=LAE 
EL. HEZLEFTECHE LAS 
S THEN FETIHTUA CiPRIHTUTROR LOHG l':GQTa 


HAE 


FEM 
IF LEHCBSSEÈLE THEN FRIHTHI ,BEH:FETLEN 


HET TiLeLE-1 


FÉIHTH#L,LEFTHCES Li 
EH=MICECEE, L+ln GOT can 


TIT ECFRAH, FUHE 


A FRIAHT'RURTIE 
PRINTer: "DE" ID" 

MI AND RIDE" 
THEN HF=HLE 


F CF AN OUI SUR ATRRIFPEIMANTE ©" 


ES HMS REN IHPFUT 4% AMELLORE 
ee  TRADUICT Lt 
FÉEFARATIOHN DES CHAIHES 


AÉ=CHRE CA AERCHEE LEZ GES" 


& REM 

D FE EXAMEH DE € 

A FE 

à FOR 122 TO LEHSA#SN-1 
GX REM 


FEM CISSLETTRE EH COURS 21 VOTELLE, COHSCHAE 
EM CA$=LETTRE FRECECENTE : EI VOrELLE. CONSOMME 
FENM COS2LETTÉE FFECEDENTE : ST YVUTELLE, COHSONHE 


Mobthe hi the be be pe 
ï DE 
n Li 
S 


FEM 

CES MIOECAE, Lei, Lis CHA s 

CILS=MIQHCAE, I, 1% TS=CIE: 

LEHSMIDESAE, I+1,15 si 

IF 1 THEH GOSUE 

AG EF=E#+01+# 

A MENT I 

FETHT 
E 

FEIHT 

GATE : 

FE 

FER CONCUTIOHS FOUR AJOUTER "fu" 

FEM 

IF VE THEN RETLEFH 

IF Cie" AND cCAS= "CG" OR Cais"q"r THEN RETURN 

AHC SCté="E" OR Cig="i"i THEH BSeR#4tE" 


in 


non 


D Œ 


Pi me 
D Qi 


Qi 


4ù a © se. 
415 EHO 
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RCI 3S OUR Ress OR Re197 THEH 


Pl 


me OP ELLE 

PRAITF CHetA" OR CHatE" OR Cés"i" DE CHe"0" OP Cé="0" THEN Ya 
FETURH 

FE 

FEU eue FORMATAGE 


FOR ISLE-1 TO 1 STEF-1:1F MID EF. L.lie" " THEM Ler:l=i GOT EE 


Ne découpez pas 
votre ordinateur en franches, 
mais le programme. 


mettez que je vous présente : si A$ = 
?’ABCDEFGH/”’, alors MIDS(A$,3,2) 
prend le troisième caractère, compte 
jusqu’à deux, et retourne donc CD. 
MIDS$(A$,2,5) prend le deuxième carac- 
tère, compte jusqu’à cinq et sort 
BCDEF. Dans certains Basics, on peut 
même se dispenser du troisième argu- 
ment, et l’ordinateur comprendra « tout 


le reste»! MIDS$(AS$,4) retourne 
DEFGHI. 


Une ficelle : 


le drapeau 


Les possesseurs de ZX 81 savent se 
passer de MID$. Pour obtenir CD, ils 
font A$ (3 TO 4), pour BCDEF, A$(2 
TO 5), et pour DEFGHI, A$(4 TO). 


Si donc je veux prendre un par un les 
caractères d’une chaîne A$, rien de tel 
qu’une bonne vieille boucle du genre : 
100 FOR I=1 TO LEN(A$) 

110 C$ = MIDS(A$,L,1) 
120 NEXT I 


En « zédixois », on remplacera bien 
sûr la ligne 110 par 110 LET C$ = AS$(I), 
et si vous voulez vérifier ce que j’avance, 
ajoutez quand même 115 PRINT CS, 
sinon, le spectacle sera mince. 


Pour le test « voyelle ou consonne », 
ce qui m'intéresse, c’est de garder en 
mémoire le résultat. Dans ma boîte à 
ficelles, j’en ai une qui s’appelle le dra- 
peau (en anglais FLAG). Il s’agit d’une 
variable contenant un nombre qui ne 


Exercice 

Quelques phrases et expressions usuel- 
les que vous pouvez donner à traduire au 
programme : 

Anticonstitutionnellement. Nitchevo. 
Va vite voir arriver Tatave, le laveur 
batave. Vive la vie, Zarie. Petit pot de 
beurre, quand te dépetitpotdebeurreras- 
tu ? Je me dépetitpotdebeurrerai quand 
tous les petits pots de beurre se seront 
dépetitpotdebeurrés. My taylor is rich. | 
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représente pas une quantité, maïs le fait 
qu’une idée, une proposition, une éga- 
lité soit vraie ou fausse. Si la proposi- 
tion est fausse, la variable vaut O, si elle 
est vraie, la variable vaut — 1 ou 1 selon 
les machines (— 1 chez Commodore, 1 
sur ZX 81). Mieux encore, au lieu de 
dire IF V= —1, il suffira de dire IF V 
tout court, l’ordinateur comprendra. Et 
au lieu de IF V =0, IF NOT V marche 
aussi. 


Le test donnera donc: V=O:IF 
C$=""A? OR C$="’E"” OR C$="’r 
OR C$=”’0” OR C$=’’U’”’ THEN 


V=-—1]. En « zédixois », on ne man- 
quera pas d’ajouter les LET 
réglementaires. 


Le cœur du programme pourrait se 
présenter ainsi : 
100 B$ = 59 9°» 
110 INPUT A$:REM OÙ 
EQUIVALENT 
120 FOR I=1 TO LEN(AS$) 
130 C$ = MIDS$(A$,I,1):GOSUB 500 
200 IF V THEN GOSUB 600 
210 B$ = B$ +C$ 


500 V=0:IF C$="’A” OR C$="E" 
OR C$="1” OR C$="0"” OR 
C$=""U” THEN V=-1 

510 RETURN 

600 B$ — B$+”’AV” 

610 RETURN 


Des blancs 


très utiles 


Seulement, pour pouvoir examiner le 
caractère précédent, il faut étoffer un 
peu tout ça : faire de C$ et de V des 
variables temporaires et créer, par 
exemple, un C1$ qui sera le caractère en 
cours, avec un drapeau VI à —1 si c’est 
une voyelle,'et un CO$ qui sera le carac- 
tère précédent, avec un drapeau VO. 
Pendant qu’on y est, on peut même 
ajouter, à toutes fins utiles, un C2$ et 
un V2 pour le caractère suivant. 

100 B$ = LED 2] 
110 INPUT A$:REM OÙ 
EQUIVALENT 


220 NEXT I 120 FOR I1=1 TO LEN(AS$) 

230 PRINT BS$ 130 C1$ = MID$(A$,I,1) 

240 GOTO 100 :C$ =C1$:GOSUB 500: V1 = V 
[ LAVA CAVIGAVALAVE AVET 


LAVA FAVOURMAVI 


Lava çavigavalave, avayavant chavantavé tavout l’avétavé 
Save travouvava favort davépavourvavue 
Quand lava bavisave favut vavenavue : 
Pavas avun saveul pavetavit mavorçaveau 
Dave mavouchave avou dave vavermavissaveau. 
Avellave avallava cravier favamavinave 
Chavez lava favourmavi sava vavoisavinave, 
Lava praviant dave lavui pravêtaver 
Quelque gravain pavour savubsavistaver 
Javusqu’avà lava savaisavon navouvavellave. 

« Jave vavous pavaieravai, lavui davit-avellave, 
Avavavant l’avaoût, favoi d’avanavimaval, 
Avintavéravêt avet pravinçavipaval. » 

Lava favourmavi n’avest pavas pravêtaveusave : 
C’avest lavà savon mavoindrave davéfavaut. 

« Que favaisaviez-vavous avau tavemps chavaud ? 
davit-avellave avà çavettave avempravuntaveusave. 
— Navuit avet javour avà tavout vavenavant 
Jave chavantavais, nave vavous davéplavaisave. 
— Vavous chavantaviez ? J’aven savuis favort avaisave : 
Aveh bavien ! davansavez mavaintavenavant. 


Lava Favontavainave 


« CRAVIAVER ». 
« PRAVIAVANT ». 
Bon courage ! 


« PRI-ANT » 
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Dans cet exemple d'exécution, seuls les accents, cédilles et majus- 
cules ont été retravaillés (intéressante amélioration que de faire faire 
ça par le programme). Mais des problèmes plus graves subsistent : 
e pour les « QU » car la ligne 3010 supprime les AV devant le « U », 
mais ne les rétablit pas après. Il faudrait « QUAVAND » au lieu 
de « QUAND » (vers 4) « QUAVELQUAVE » au lieu de « QUEL- 
QUE » (vers 10), « QUAVE » au lieu de « QUE » (vers 17) ; 

e pour les diérèses. « CRI-ER » fait deux syllabes. Il faudrait donc 
aussi 


devrait donner 


140 CO$ = MIDS(A$,I — 1,1):C$ = COS: 
GOSUB 500:V0= V 

150 C2$ = MIDS(A$,I + 1,1):C$ = C2$: 
GOSUB 500:V2 = V 

200 IF V1 THEN GOSUB 600 

210 B$—B$+CI$ 

220 NEXT 1 

230 PRINT B$ 

240 GOTO 100 

500 V=0:IF C$="’A” OR C$="’E"”" 
OR C$="”1” OR C$="’0” OR 
C$="’U” THEN V=-1 

510 RETURN 

600 IF VO THEN RETURN 

610 IF C1$="’U” AND (C0$="’G” 
OR C0$ = ”’Q”’) THEN RETURN 

620 IF C0$="’G” AND (CI$="E"” 


OR C1$="’1?) THEN 
B$=B$+’’E" 

630 B$ = B$ + ’’AV”’ 

640 RETURN 


On fait un RUN, et bing ! on se 
plante : ILLEGAL QUANTITY 
ERROR IN 140. Ah oui, c’est vrai, au 
premier tour de boucle, I vaut 1, I—1 
vaut 0 et il n’y a pas de 0° caractère à 
la chaîne Af. 


La solution ? mais c’est tout simple 
voyons ! Et pourtant, j’ai mis un 
moment à la trouver ! On va ajouter un 
blanc en tête de A$, ça ne gênera per- 
sonne, et puis aussi un en queue. On 
modifiera les limites de boucle en con- 
séquence. Hop ! exécution : 

115 A$=”’”+A$+7 7 
120 FOR I=2 TO LEN(AS)-1 


Et on refait RUN. Ça a l’air d’aller 
cette fois. On va tout de même ajouter 
un peu de sauce, avec une routine de 
formatage des sorties, le choix de sor- 
tie sur écran ou sur imprimante (en 
paramétrant le numéro de périphéri- 
que). Ce qui donne le programme Basic 
de Javanais (page précédente), preuve 
que le Javanais peut trouver son épa- 
nouissement dans le Basic ! 


François J. BAYARD 


T. JAVACQUAVOT APPRRRENP 
JAVAVANAIS PLUS VAVITE 
QU'ORDINATAVEUR ! 
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{ L'ORDINATEUR 
INDIVIDUEL 


PETIT ORDINATEUR ILLUSTRÉ 


depuis le 10 septembre ce magazine radio de 15 minutes 
est diffusé chaque semaine sur les stations suivantes(*) 


Alençon : AFM, 89.4 MHz 
Tél. : 26.23.99 

Alès : Filasoi 

88.6 MHz - Jeudi 19h. 
Amiens : RCC, 101 MHz 

Tél. : 92.08.08 

Angers : Angers 101, 

101 MHz. Tél. : 68.44.44 
Angoulême : Radio Marguerite, 
99.9 MHz. Tél. : 92.39.39 
Bayonne : Radio Adour Navarre, 
90.7 MHz. Tél. : 25.50.10 
Belfort : Radio Soleil, 88.1 MHz 
Samedi 12 h. 05 

Besançon : RVF, 98.1 MHz 
Tél. : 83.24.22 

Bordeaux : Radio 100, 94.3 MHz 
Tél. : 52.51.57 

Bourges : Radio Recto-Verso, 
98 MHz. Tél. : 21.18.18 

Brest : FM 101 

Samedi 19 h. 30 

Brive : Radio Brive Licorne, 

95 MHz. Mardi 18 h. 30 

Caen : FM 96,8 

Dimanche 10 h. 

Cannes : Fréquence Sud 

97,7 MHz. Samedi 19h. 
Carcassonne : Radio 11, 

94.1 MHz. Mercredi 8 h. 45 
Castres : Radio Tarn Sud, 
97.5 MHz. Vendredi 21 h. 
Chambéry : Fréquence Horizon, 
100 MHz. Tél. : 69.76.71 


Chartres : Radio Loisirs n° 1, 
97,3 MHz. Tél. : 21.51.85 
Clermont-Ferrand : MU, 
96.2 MHz. Tél. : 36.80.30 


Dax : ACOS 95, 95.1 MHz 
Tél. : 57.81.61 


Dijon : Radio 2000, 90.7 MHz 
Lundi 21h. 15 


Gap : RTM, 90 MHz 
Mardi 13h. 


Guéret : REM, 100.1 MHz 
Tél. : 52.79.03 


Haute-Loire-Ardèche : Radio RCL, 
103 MHz. Tél. : 26.26.00 
Lannion : Pays de Trégor, 

91.6 MHz. Samedi 9 h. 30 

Laval : Perrine 

101.3 MHz. Mardi 19 h. 30 


La Rochelle : Radio La Rochelle 
92 MHz. Tél. : 41.66.00 


Le Havre : EVA 
103,5 MHz. Tél. : 89.27.02 


Le Mans : FM 104, 104 MHz 
Tél. : 82.44.22 


Lille : Radio Contact, 93.4 MHz 
Tél. : 24.34.34 


Limoges : HPS, 102.7 MHz 


# 


Tél. : 37.77.54 
Lyon : Ciel FM, 96.9 MHz 
Tél. : 842,58.55 


Marseille : Fréquence Marseille 
94,7 MHz. Mardi 20 h. 30 


Metz : Radio L, 93.3 MHz 
Tél. : 733.21.22 


petit 
ordinateur 
illustré 


Montpellier : Radio Alligator, 
94.5 MHz. Tél. : 92.00.44 
Nancy : Rockin'chair, 95.8 MHz 
Tél. : 355.16.74 


Nantes : Atlantic FM, 96.8 MHz 
Mercredi 19 h. 30 

Narbonne : Radio Corail, 

93.6 MHz. Samedi 9 h. 30 


Orléans : Orléans FM, 93.6 MHz 
Dimanche 9h. 15 


Paris : Gilda, 103.5 MHz 
Dimanche 10 h. 


Poitiers : RPO, 90 MHz 
Tél. : 58.59.55 


Rennes : RBS, 89.1 MHz 


. Vendredi 21 h. 


Rouen : Arlequin, 103 MHz 
Dimanche 11 h. 15 

St-Etienne : Radio Loire Service, 
Tél. : 34.12.23 
Salon-de-Provence : Radio 
Centuries, 99.7 MHz. Tél. : 42.18.00 
Sens : Radio Horizons, 

91.2 MHz. Tél. : 95.15.31 
Strasbourg : Nuée Bleue, 
89.5 MHz. Mardi 18h. 15 
Tarbes : Pirène 

98 MHz. Samedi 19 H. 30 
Toulon :-‘Radio Mistral, 

104 MHz. Tél. 75.03.34 

Tours : Méga-Tours, 103 MHz 
Tél. : 61.22.88 

Troyes : Discone Radio, 

92 MHz. Jeudi 18 h. 45 


{*) Pour obtenir l'horaire de diffusion exact du ‘Petit Ordinateur Illustré”, 
veuillez contacter la radio émettant dans votre région. 


REGISTRES INTERNES 


UN MINI-MONITEUR 
POUR PC-1251 


ORS de la mise au point des programmes en 
langage-machine, il est souvent utile de 
pouvoir contrôler l'état des registres. Et même 
d'en connaître leurs valeurs. Un ordinateur petit 
comme le PC-1251 doit se faire aider par un 
programme en Basic. Ainsi, il affiche la valeur de 


tous les registres internes. 


Pour permettre au PC-1251 de 

contrôler ses registres internes, 
commencez par entrer le Mini-moniteur 
ci-contre, programme en Basic, puis fai- 
tes DEF S pour le stocker en mémoire 
vive. 


Supposons maintenant que vous vou- 
liez tester la routine suivante : 
03 08 LIB 08 
02 00 LIA 00 
43 DECA 


Et n’oubliez pas le JP C110 qui bran- 
che au moniteur. 


Ajoutez alors le programme à tester 
(page suivante), toujours en Basic. Fai- 
tes RUN pour exécuter ce programme 
en langage-machine. Un simple DEF M 
donnera alors l’état des registres en affi- 
chant en particulier ce que vous atten- 
diez : A = 255.B = 8.NZ C 

Vous pourrez améliorer encore le pro- 
gramme en faisant afficher par exem- 
ple les registres en hexadécimal et non 
en décimal. 

Le seul registre que ne donne pas 
notre moniteur est DP : nous n’avons 
trouvé aucun moyen de le lire. Et vous ? 


Bernard BOUVIER 
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: Mini-moniteur 


Programme pour PC-1251 
Auteur Bernard Bouvier 


Copyright LIST et l’auteur 


364: "1"A=8C189 

305:235=" 2°: IF PEEK CA+ 
1)=D LET 2$=* Nz° 

896:C$=" C1 IF PEEK (A+ 
23=9 LET C$=" NC° 

SIBI PRINT “A=Ÿ: PEEK À” 
=": PEEK (CA+8)3283C 


## 


‘3 PEEK CA 
EEK (+4) 
K CA+5) 

i PEEK Ca+ 


: RESTÜRE 


TO &dy: 
KE Ch+lis] 


1DATA &iDeECls 80852 


séilsébls EG: EDAsR25 
TETE UPRLEUREESPIE TS: 
16025 &D2 


DATA ROBE ZA RD3s RD2 


sEDlsES2sélls 83 E28 
1RS2skiiskés KZ RS 
&iis8&gs 


DATA A 


iis &OT s801 
ner 
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C'EST ÉTONNANT LE Paw 


DES ORDINATEURS: 


n ) 
{ ( 
( 
A æ\/S 
à 


Comment ça marche ? 


La plupart des registres sont stockés en 
mémoire vive interne (non accessible par 
PEEK) de la façon suivante : 

00 I 

01 J 

02 Accu A 
03 B 

04 XL 

05 XH 

06 YL 

07 YH 

08 K 

09 L 


Le travail du mini-moniteur est de les 
lire, et de les recopier en mémoire vive 
accessible aux adresses suivantes : 
C100 Accu A 


C101 
C102 
C103 


Flag Z 
Flag C 
P 


CI04 Q 
CI05 R 
CI06 1 

CI07 ]J 

CI08 B 
C109 
CI0A 
C10B 
C10C 
CI0D K 
CIE L 


Par exemple, pour J cela peut se faire 
par : 


LIDP C107 ; DP+C107 
LP O1 ; P=-01 
MVDM ; (P) <(P) 


Pour les registres tels que Q qui ne sont 
pas dans la mémoire vive interne, cela se 
fait en passant par l’Accu A : 


LIDP C104 ; DP+æCI104 
LDQ ; AQ 
STD ; (DP)+ A 


ILS SONT CARRÉNENT 
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CA BAISSE 
Tous 
LES 
TOURS. 


SURTOUT CEUX 


QvE LE 


PU 


JU FA 
Le © 
= 
==" 


lu 


19 

C140 37 
5 
Un programme É 

à tester 

25 
35 
45 


LE HARCHAND Du Coin” 


= 


"Ù Ai 


Tr Ù 
RER U 


"ù 


« 
+44 
ii 

= 


4 
i 
SCHDSs TA E 


14 


&C484 


YL, YH,K, L 


À TOUT ACHETEUR DE 


OFFRE UN L'INTERF AC 
ORDINATEUR DiSquerre ! /f| 
\ 

GAATUT il 
PT 
| æe 
(y 
at 
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 SUITES EN BASIC 


# 


DETECTEUR DE 
NOMBRES PREMIERS 


A suite de Perrin est une suite numérique 
qui semble mettre en valeur les nombres 
premiers. Mais aussi de rares nombres composés. 
Ces derniers seront éliminés par deux autres 


Li 
suites. 
En 1899, un mathématicien 


EE que n divise u(n) uniquement lorsque 
français nommé Perrin obser- 


n est un nombre premier. Cela est 


vait le comportement étonnant d’une 

suite numérique définie par : 

° ses trois premiers termes, u(0) = 3, 

u(1) = O et u(2) = 2; 

° son terme général, u(n+3) = u(n) 

+ u(n+1) où n est un entier positif. 
Le comportement de cette suite, 

pour n petit, apparaît dans le 

tableau 1. On constate curieusement 


vrai pour n petit. Mais est-ce toujours 
vrai ? À l’époque, Perrin ne trouva 
aucun contre-exemple. 


Récemment, deux Américains, 
Adams et Shanks se penchèrent à 
nouveau sur cette curiosité oubliée. Ils 
confirmèrent que la propriété est vraie 
jusqu’à 271 440. Mais pour n 
271 441, n divise u(n) alors que n 


Tableau 1 

Les premiers termes de la suite de Perrin 

n O 1 2* 3* 4 5* 6 7* 8 9 10 11* 12 13* 
u(n) 3 O0 2 3 2 5 5 7 IO 12 17 22 29 3 


L’astérisque (*) indique que n est premier. On observe alors que n divise u(n). 


| 
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Tableau 2 


n’est pas premier : 271 441 est égal à 
521. 


Les deux Américains eurent alors 
l’idée d'observer la suite pour des n 
négatifs. En effet, la récurrence précé- 
dente se retourne parfaitement : 
u(-n) = u(—-n+3) - u(-n+1) où 
- nest inférieur à 2. Les premiers ter- 
mes de cette suite apparaissent dans le 
tableau 2. Et là, on remarque que n 
divise u(—n) + 1 lorsque n est pre- 
mier. Les contre-exemples sont plus 
nombreux qu’avec la première suite : 
7, 7X11, 11, étc. 


Mais si l’on associe ce test à celui 
de Perrin, la réponse à la question : 
« est-ce que un) et u(—n) + 1 sont 
divisibles par n ? » est un excellent 
test de primalité. 


Si la réponse est non, alors n est 


Les premiers termes de la suite de Perrin pour -n<2 


n 


1 2* 3* 4 5* 6 7* 8 9 10 11* 12 13* | 


u(—n) 0 


3 —1 1 


2 


-3 4 —-2-1 5 -7 6 -1-6 12 


L'’astérisque (*) indique que n est premier. On observe alors que n divise u(—n) + 1. 
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composé. Si c’est oui, alors n est très 
probablement premier. 


C’est ainsi. que 271 441 se révèle 
cette fois composé grâce à la 
deuxième condition. Existe-t-il encore 
des contre-exemples ? La réponse est 
oui, mais ce sont des nombres très 
grands. On ne connaît pas le premier, 
mais le plus petit actuellement connu 
est: C;, = 27 664033 = 3037 x 
9 109. 


1 + x. Ainsi u(271 441) est un nom- 
bre ne possédant pas moins de 33 150 
chiffres ! 


Il n’est donc pas question de calcu- 
ler la valeur exacte de u(n) mais de 
reformuler le test. Nous utilisons 
alors les congruences. Rappelons que 
a congru à b modulo c (noté a=b, 
mod c) signifie que b est le reste de la 
division entière de a par c, soit 
a = b + kc avec b<c et k entier posi- 
tif. Par exemple, a divisible par c se 
note a=0, mod c. D’où le test refor- 
mulé : nest ‘“‘premier”” si et seulement 
si u(n) = u(l), mod n et u(—n)= 
u(— 1), mod n. 

Appelons alors signature de n les 
six valeurs, modulo n: u(—-n-—1), 
u(—-n), u(-n+1), u(n—1), u(n) et 
u(n+1). Le calcul d’une signature 
peut être fait simplement par le pro- 
gramme n° 1, et un nombre premier 
aura une signature de la forme : a, 
u(— 1), b, c, u(l), d où a, b, cet d 
suivent aussi des règles. 


Six valeurs 


pour une signature 


Il est facile de faire un programme 
calculant u(n), mais il faut remarquer 
que les valeurs croissent très vite avec 
n. Pour les matheux, signalons 
qu’une approximation de u(n) est 
donnée par a”, où a = 1,324718 est la 
racine réelle de l’équation x° = 


10 
20 


30 


DIM S(6) 
INPUT N2 MEN 
RESTORE 40:FOR I=i TO 6:READ S(I)ENEXT I 


40 DATA 1s5-15 33302 

50 FOR I=2 TO N 

60 J=S(4)+S(S):IF J:=M THEN J=J-M 
7Q K=S(T)-S(1):IF K<O THEN K=kK+M 


80 6(4)=6(5):S(5)=S(6):S (6) =J 
70 S(3)=S(2):S(2)=S(1):S(1)=K 
100 NEXT I 

110 FOR Izi 
120 GOTO 20 


TO é:PRINT S(ID3:NEXT I:PRINT 


— 


_ 


Type Signature 


TI A, u(—1), B, B, u(1), C 
T2 u(l), u(— 1), D, E, u(l), u(—1) 
T3 u(—2), u(—1), u(0), u(0), u(1), u(2) 


Tableau 3 


A, 3, Cet D, E ne peuvent pas prendre n’importe quelle 
valeur. Par exemple, on a toujours : 

e BÆu(0) et C =9B-—3A + 1, mod n pour une signature de 
type TI 

e DFEetE=n-D-3, mod n pour une signature de type 
T2 


Ainsi, on peut montrer que la 
signature d’un nombre premier appar- 
tient toujours à l’un des trois types 
T1, T2 ou T3 (voir tableaux 3 et 4). 


On remarque assez vite que T1 est 
un type plus courant que T2, et que 
T2 est lui-même plus courant que T3. 
Asymptotiquement, on montre que 
les nombres premiers se répartissent 
entre les trois types dans les propor- 
tions de 1/2 pour T1, 1/3 pour T2, et 
1/6 pour Ti. 


Grâce aux congruences, les dépasse- 
ments de capacité sont évités, mais les 
temps de calcul restent trop élevés 
pour des n supérieurs à 10 000. 


Heureusement, une propriété que 
nous appellerons « règle de double- 
ment » et que nous ne démontrerons 
pas ici, vient à notre secours : u(2n) 
= (u(n))} — 2u(-n). Elle est égale- 
ment vraie pour —n: u(—2n) = 
(u(—n)} — 2 u(n). 


Cette règle permet de calculer rapi- 


Programme n° 1 

Calcul de la signature 
Auteur Christian Boyer 
Copyright LIST et l’auteur 


Il est possible de réaliser un pro- 
gramme de ! Koctet en Assembleur du 
Z 80 permettant de calculer les signatu- 
res de nombres contenant jusqu’à 
610 chiffres. Il serait beaucoup plus 
rapide puisque des nombres de 25 chif- 
fres y seraient traités en 25 secondes ! 


Trois types de signatures 
caractérisent les nombres premiers 


Signature 


Type 


n 

5 

Tableau 4 7 

Les deux premières signatures 5 
de chaque type (n X2) 3 

59 


3, 4,2,2,0,0 TI 
5, 6, 5, 5, 0, 3 TI 
0, 2, 1, 2, 0,2 T2 
0, 12, 7, 3, 0, 12 T2 
1, 22, 3, 3, 0, 2 T3 
1, 58, 3, 3, 0,2 T3 
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SUITES EN BASIC 


DÉTECTEUR DE NOMBRES PREMIERS 


dement la signature de n. Le pro- 
gramme n° 2 utilise deux vecteurs 
principaux, S et D, déclarés par DIM 
S(6), D(11). Le premier représente la 
signature, et le second sert à stocker 
temporairement les doublements : 
D(1) = u(-2k-2), D(2) = 
u(—2k—1), D(3) u(—2k), D(4) = 
u(—2k+1), D(5) = u(—-2k+2), D(6) 


(M 


n’est pas utilisé, D(7) = u(2k—2), 
D(8) = u(2k—1), D(9) = u(2k), 
D(10) = u(2k+1), D(11) = u(2k +2). 


Supposons la signature de k connue 
avec S(1), S(2), ……, S(6). La règle de 
doublement permet de calculer D(1), 
D(3), D(5), D(?7), D(9) et D(11) : D(1) 
= S(1) — 2S(6), D(3) = S’(2) - 
2 S(S), etc. 


Pour remplir les trous laissés dans 
D, on utilise simplement la récurrence 
u(n+3) = u(n) + u(n+1), soit : D(2) 
= D($5) - DG), D(4) = D(2) + 
D(3). De même pour D(8) et D(10). 


Maintenant que D est complet, on 
peut en déduire la signature de 2k : 
S(1 à 3) = D(2 à 4) et S(d à 6) = D(8 
à 10). Et la signature de 2k + 1 est : 
S(1 à 3) = D(1 à 3) et S(4 à 6) = DC 
à 11). 


Après avoir écrit n en base 2, nous 


j 
y) 
« 


LL 
N 
NN 
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le parcourrons bit par bit de la gauche 
vers la droite. Puisque le premier bit 
significatif vaut toujours 1 (évidem- 
ment !!), nous initialiserons S avec la 
signature de k = 1. Du deuxième au 
dernier bit, nous recalculerons à cha- 
que fois la nouvelle signature de k’ 
2k + 1 (si le bit vaut 1), ou de k’ 
2k (s’il vaut O). 


Le programme n° 2 se complique 
par rapport au n° 1, mais permet 
d'obtenir bien plus rapidement les 
signatures. Par exemple, avec un 
Basic de 16 chiffres, les signatures de 
nombres à 7 chiffres sont calculées en 
10 secondes et celles des nombres à 14 
chiffres en 2 minutes. Des nombres de 
cette taille étaient impossibles à calcu- 
ler par le programme n° 1. 


(ML 


Deux autres suites présentent les 
mêmes propriétés que la suite de Per- 
rin. Nous les appellerons S2 et S3 (SI 
désignera la suite de Perrin). S2 est 
définie par : v(0) = 3, v(1) = 1, v(2) 
= et vin+3) = v(n) + v(in+2). 
Quant à S3, elle est définie par : w(0) 
= 3, w(1) = 1, w(2) = 3 et w(n+3) 
= w(n) + w(n+1) + w(n+2). 

Pour ces deux suites, les signatures 
des nombres premiers sont de la 
même forme que pour la première 


JTE savais DIT 


étudiée : a, v(—1), b, c, v(1), d pour : 
S2, avec v(—1) = 0 ; e, w(—1), f, g, 
w(1), h pour S3, avec w(—1) = —1. 

Là aussi, les contre-exemples (1) 
sont extrêmement rares. Les plus 
petits connus sont: C2 = 
6 693 621 481 = 607 x 1 213 x9 09 
pour S2 et C3 = 517 567 051 = 
16 087 x 32 173 pour S3. 


La précision 


est indispensable 


Le calcul des signatures de ces deux 
suites est similaire à celui de la pre- 
mière, la règle de doublement étant 
toujours valable. Seuls les remplissa- 
ges des trous ne se font pas de la 
même manière. Le programme n° 2 
permet de calculer les signatures des 
trois suites. Lors du lancement de ce 
programme, introduisez correctement 
la précision de votre Basic, c’est-à- 
dire le nombre de chiffres significatifs 
utilisables sur votre machine : une 
surestimation de cette précision pro- 
voquerait des résultats faux. 


On a vérifié que pour tous les n 


QUIL Y EN AVAIT ENCORE |: 
À TIRER LA DEDANS / 


(1) Un petit tuyau : les 
contre-exemples des suites 
ont été cherchés dans des 
familles particulières de 
nombres. Ainsi C; n’est 
autre qu’un nombre de Car- 
michael, alors que C; et C; 
sont respectivement de la 
forme k(3k — 2) et k(2k — 1). 
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3 DIM A(6),S(6)},D(11) 

S PRINTE INPUT" Precision du BASIC ‘3 “sp 
6 FSINT(F/2)-1 

7 VP=VAL CULU+STRINGS ("CO 

10 RE 

15 REM Introduction du nombre 


PRINT: INPUT" Suite 1, 2 < reg 
20. P : " Suite 1, 2, où 3 ? ":3S Test de pri 4 ES À 
21 IF (B<>1)#(S6Y2)#(8C>3) THEN 20 < primauté: Perrine Adars-Stanks 


2S INPUT" Nombre UN Auteur Christian Boyer 


E î * 
26 IF NK>INT(N) THEN PRINT" Nombre non entier":G0TU 25 Copyright LIST et l’auteur 
27 IF N°2 THEN FRINT" Nombre inferieur a 2":GO0OTO ?5 
28 IF N>VPXVPF THEN FRINT" Nombre trop grand pour ce RASIC":GQTO 25 
30 MEN:REN M=Modulo 
35 IF (S=S)X(M/Z2=INT (M/2)) THEN PRINT" Pair interdit 
39 REM ----—-— Initialisation signatures 
| 40 ON S GOSUR 1000, 2000, 30O€r 
L 41 FOR 1=1 TO 6 
4% READ ACID:TIF A(I)£O THEN A(I)=A(I)+M 
43 S(I)=AUI)EINEXT I 
43 REM == Decomposition binaire 
48 O=NINg="" 
30 O=0/2:IF O=INT(O) THEN N$="O"+NSg: GOTO 50 
60 O=INT(O)ENS="I"4NSIIF O0 THEN 50 
65 REM  %kkkOCk OK MK KO HOHONOHOHOION OK 
70 FOR L=2 TO LEN(NS) 
75 REM === Regle de doublement 
78 IF M:1OXVF THEN GOSUR 5000:G0OTQ 120 
80 FOR I=i TO 6:J=2xI-1 
90 D{J)=S(I)KS(I)-2KxS (7-1) 


(83) "26010 25 k 


inférieurs à 360 001 aucun contre- 
exemple n'existe, ni dans Si, ni dans 
S2, ni dans S3. Donc, si le nombre à 
tester est inférieur à cette limite, le 


1 SO RDSA RE INT (D(J) /M) résultat de l’une quelconque des trois 
) I : s ; 

IREM se à suites est suffisant, et la réponse est 
120 ON S GOSUB 1100, 2100, 3100 certaine et prouvée. 

Poe ouvelle sianaèôre Au-delà, on ne connaît aucun nom- 
160 J=VAL (MIDS (NS, Ls 1) ) : s : 

170 FOR I=1 TO 3:6(1)=D(I+1-J):NEXT I bre résistant à deux suites (et a for- 


FOR I=4 TO 6:G(I1)=D(I+4+J):NEXT I 
REM —---- 


tiori aux trois). Par exemple, alors 
que C,; est « probablement premier » 


190 NEXT L : | ; 
195 REM RC OO OO dans SI, il est finalement prouvé com 
200 PRINT" Signature ="3:FOR I=i TO 6:PRINT SCL)S:NEXT L: PRINT posé par S2 (ainsi que par S3). 
210 IF (S(S)<5A(SH))+(S(2)C7AC2)) THEN FRINT" Compose":G0TO 10 ET 
220 FRINT" Probablement premier" Un excellent test . primalité sera 
230 GOTO 10 donc de soumettre le nombre aux 


— Suite ! 


1010 RESTORE 1020:RETURN 


O DATA 1:-1,3,3,0,2 


REM 


1100 FOR I=1 TO 2:J=6kxI-5 


D(J+1)=D(J+4)-D(J+2):1F D(J+1)20 THEN D(J+1)=D{J+1)+M 


1120 D(J+3)=D(J)+D(J+1)2IF D(J+3):=M THEN D GI+%) =D (J+7) -M 
1130 NEXT JI:RETURN 
2OOÛD'REM "mu Suite © 


2010 


RESTORE 2020:RETURN 


2020 DATA -2,0:3s 3,131 


2099 


REM 


2100 FOR I=i TO 2:J=6x1-5 


2110 


D(J+3)=D(J)+D(J+2):IF D(J+z 


=M THEN D(J+4#}=D(J+5) -M 


2120 D(J+1)=D(J+4)-D(J+3)2IF D(l+1)€0O THEN D(J+1)=D(J+1)+M 


2130 
3000 REM --———— Suite # 
3010 

20 DATA -1,5-1:3%3%31,Z 


3099 


NEXT I:RETURN 


RESTORE 3020: RETURN 


REM 


3100 FOR I=1 TQ Z2:J=6XxI-5 


3110 E=(D(J)+D(J+4))/Z5IF K£ INT (Ho) 


3115 D(J+T)=K 


3120 


DéJ+1)=D(J+2%)-D (9) -D(J+2) : D(J+1) =D (J+1)-MKINT {D CJ+1) /M) 


F130 NEXT I:RETURN 


3990 
4995 REM — 


REM === 


— Regle de doublement en double precision 
5000 FOR I=1 TO 6:J=2%x1-1 

5010 MA=S (I) :MBR=G (1): GOSUE 68000:D (J)=MC-2KS (7-1) 

5020 D(J)=D(J)-MXINT (D(J) /M) 


S030 NEXT I:REFTURN 


THEN E=R+M/231F KèeM THEN Ezk--M 


trois suites. Si les trois tests répondent 
« probablement premier », vous 
pourrez considérer que votre nombre 
est réellement premier. Au premier 
contre-exemple, avertissez vite la 
rédaction ! 


Christian BOYER 


Ce programme a été écrit dans un Basic 


le plus standard possible. Les seules dif- 
férences éventuelles viennent des lignes 21 et 


9099 REM ———--- MC=MAXME mod M { multipl. double prec. ) à PRESS = 
6000 A1=INT (MA/VP) : A2=MA-VP#A1 35 où les “‘*? sont des AND, alors qu’en 
6010 Bt=INT (MB/VP) 3 RME VPXE ligne 210 le ‘+?’ est un OR. Quant à la 


6020 MC=ALKELS MC=MC-MXINT (MC /M) 


ligne 7, elle est équivalente à VP = 104P, 


6030 FOR É=1 TO FiMC=10KxMC: MC=MC-MXINT (MC/M):NEXT mais évite les erreurs d’arrondi. 
6040 MC=MC+A1XRZ+ARKB1 4 MC=ME-MX INT (MC /M) 
6080 FOR K=1 TO FiMC=10KMC: MC=MC-MXINT (MC /H) ENEXT E 


6060 MC=MC+AZKR2: MC=MC-MX INT (MC /M) 
6070 RETURN 


9990 


REM = 


9999 END 
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PROGRAMMATION 


POUR ÊTRE 
TOUT A FAIT PRÉCIS... 


ES ordinateurs calculent rapidement et 
fournissent des résultats précis. Cela dit, il 
leur arrive aussi « d'en rajouter ». 
À quoi bon dix chiffres significatifs quand cinq 
suffisent ? Et que dire des décimales superflues 
qui, de plus, sont fausses ? Il faut les éliminer. 


L’excès en tout est un défaut. 

Trop de décimales dans un 
résultat, c’est trop. Lorsqu'il s’agit de 
francs ou de centimes, ou bien encore 
de tout résultat devant être exprimé 
avec un nombre de décimales cons- 
tant, la solution est le plus souvent 
très facile. 


Sur les machines de la famille T7 
(TI-58 ou 59), on dispose de l’instruc- 
tion Fix. Par exemple, si le résultat 
doit être exprimé en francs, il suffit 
de faire Fix O0 (en mode calcul ou en 
mode programme) et le résultat est 
arrondi au franc le plus proche. 


Sur les machines de la famille 
Sharp ou similaires, on dispose de 
l'instruction USING (uniquement en 
mode programme), plus lourde à 
manier que Fix, mais produisant le 
même effet, affichant toutefois le 
résultat sans arrondi du dernier chif- 
fre. 


La situation se complique 
quelque peu lorsque le nombre 
de chiffres significatifs à 
afficher est variable, par 
exemple dépendant d’un 
paramètre quelconque. 
Là encore, l’instruc- 
tion Fix se révèle 
particulièrement 
maniable. 


Aüinsi, si vous 
voulez, sur une 
machine telle 
que la TI-58 ou 
59, afficher la 
valeur de 7 avec 
un nombre de 
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décimales égal à K, entrez K dans un 
registre quelconque, par exemple le 
registre 5. Si K = 4, faites 4 STO OS. 
Demandez alors n Fix Ind 5 =, et le 
résultat sera bien celui que l’on atten- 
dait : 3, 1416. En fait, la séquence Fix 
Ind 5 signifie : nombre de décimales 
contenu dans le registre 5. 


Pour pousser le raisonnement un 
peu plus loin, imaginons que vous 
vouliez afficher n avec un nombre de 
décimales égal au chiffre des dizaines 
de l’âge du capitaine, ou bien à la 
vitesse du vent exprimée en nœuds. 
Entrez alors le petit programme sui- 
vant : 

STO 5 n Fix Ind 5 R/S 


Si le capitaine est âgé de 45 ans, 
vous devez taper 4 RST R/S. La 
réponse sera 3,1416. Si la vitesse du 
vent est de 7 nœuds, vous faites 7 
RST R/S et vous obtenez 3,1415927. 


Où va la virgule 


décimale ? 


Dans le cas des machines dépour- 
vues de l’instruction Fix, il n'existe 
pas d’équivalent à la gestion variable 
de la décimalisation que nous venons 
de décrire. En effet, l'instruction 
USING utilise des # dont la disposi- 
tion exprime le formatage. Malheu- 
reusement, le nombre de # n’est pas 
programmable, et si ce nombre est 
variable, il faut recourir à un procédé 
que nous allons illustrer par un exem- 
ple : le calcul automatique de grandes 
factorielles. 


Le programme calcule les factoriel- 
les des nombres inférieurs à 10°. Il est 
établi pour PC-1211/PC-1 et com- 
porte deux particularités : 


e une précision générale poussée ; 
. un affichage ne comportant que des 
chiffres significatifs exacts. 


Le programme est divisé en deux 
parties : 

e lignes 10 à 90, calcul direct des fac- 
torielles des nombres de O0 à 23 ; 

e lignes 100 à 270, calcul par la for- 
mule de Stirling des factorielles des 
nombres supérieurs à 23 et inférieurs 
à 10°. 

Dans la deuxième partie, la formule 
utilisée est une version peu connue de 
la formule de Stirling, particulière- 
ment adaptée au calcul logarithmique, 
qui s'écrit : Z! = ZZ V2nz eTZ avec 
T = 1 — 1/(12 22) + 1/(360 Z*) — 
1/(1260 Zf) +… 

Ecrivons Z en fonction de la man- 
tisse D et de l’exposant C, soit Z = D 
x 10€, avec 1< D <10 et C entier ; 
on obtient en logarithmes décimaux 
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| (nous vous épargnons les calculs inter- 

| médiaires) : iog Z! = C(Z + 0,5) + 

| Z (log D - loge) + log V 2aD + U 
log e où U = 1/(12 Z) — 1/(360 Z*) 
+ 1/(1260 Z°)... et e = 2,718... — 
1/In 10. 


Calcul de grandes factorielles 
Programme pour PC-1211 
Auteur Pierre Ladislas Gedo 
Copyright LIST et l’auteur 


Le quatrième terme de U est 
—1/(4680 Z7). Mais il serait illusoire 
de le retenir car, dans le champ 

| d’application que nous étudions, sa 

| prise en compte n’affecterait que la 

treizième décimale du résultat, qui 

| sera toujours exprimé avec moins de 
13 chiffres significatifs. 


| On remarquera que là formule utili- 
| sée permet de réduire la taille des 
N nombres sur lesquels s’effectuent les 
| calculs : le premier terme de la for- 
mule, C(Z+0,5), n'intervient pas 
dans le calcul des décimales de log Z!, 
puisqu'il est soit entier, soit de la 
forme « ...,5 ». Par ailleurs, l’algo- 
rithme retenu sépare la partie entière 
de la partie décimale de log Z! (voir, 
dans l’analyse du programme, les 
lignes 120 à 150). La combinaison de 
ces deux astuces permet de gagner au 
moins une décimale dans l’expression 
finale du résultat. 


Autopsie . 


d’un résultat 


Mais l’objet véritable de notre pro- 
pos concerne les lignes 210 à 270 : 
l’expression du résultat, débarrassé de 
toutes les décimales parasites. 


Le calcul des factorielles par la for- 
mule de Stirling est certes séduisant, 
mais les résultats obtenus doivent être 
interprétés avec beaucoup de précau- 
tions. En effet, on calcule Z! à partir 
de log Z!. Si, par exemple, Z = 

| 5 000 000, on a: log Z! —- 

) 31 323 381,360 7..., et les chiffres qui 
suivent le 7 deviennent incertains. 
Pour calculer Z! en fonction de log 
Z!, on écrira : 
Exposant de Z! = 31 323 381 
Mantisse de Z! = antilogarithme de 
0,3607... = 10034607 = 2,294563072 


Puisque 0,3607 n’est connu qu’avec 

4 décimales, il est logique de penser 

que l’on ne peut afficher 100-3607 

° qu'avec 4 chiffres significatifs. En 

réalité, si l’on veut s’entourer de 

garanties raisonnables quant à l’exac- 

titude du dernier chiffre, il est pru- 

dent de n’afficher le résultat qu’avec 

3 chiffres significatifs, en l’occurrence 
2,29. 


Pour obtenir ce résultat, voici com- 
ment on procède : on range en 
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| 


10: "LOIMNPUT ° 7 
= Nez 

20: IF CZ'0pme2 
C1E9)#42=INT 
£)=OFRINT * 
YERIFIER Z": 
GOTO 10 

30: IF 2236070 
150 

+0: A1 

50:FOR B=1TO 2 

60: A=A*B 

TO: NEXT E 

SO! PRINT " ZI! = 
“sû 

90: GST6 10 

100: C=INT LOG Z 

110: 5=2/10"C 

120:E=CRZ+INT <C 
#29 

1305 F=C/2-INT «€ 
#29 

LAQ:C=INT 2x 
LOG D-1/LN 1 
0) 


150: H=2%kCLOG Ii 
FLN 192-6G 
160:1=.5L06 (24 
«xD 

170: J=61/12/2-1, 
Z60-2*3+1/12 
ED -27EN LAN 1 
Q 


ISO KE=INT €F+H+I 
+5 

190: L=E+G+K 

200: MSF+H+T4J-K 

210: N#=10"N 

Z20:G6=9-INT LOG 
L 


230:F=10"0 
ZAO:G=CINT CNP+ 
5227 F 
ZO0:IF Q=I0LET Q 
Ælslel+i 
ZSO:FRINT “ ZI = 
":Q;s Li à LL sL 
270: GITO 10 


Analyse du programme ef liste des variables 


Variables | 


Commentaires 


Z 


A 
B 


LOMME 


0OTOZET % 


Première partie : calcul direct 


Nombre dont on veut calculer la factorielle 

Elimination des introductions non valables 

Renvoi au calcul par la formule de Stirling 

Variable dont la valeur initiale est 1 et la valeur finale Z! 
Compteur de boucles 

Valeurs successives de A (multiplications successives) 
Incrémentation de B 

Affichage de Z! 

Réinitialisation 


Deuxième partie : calcul par la formule de Stirling 


Exposant de Z 

Mantisse de Z 

Partie entière de C(Z +0,5) 

Partie décimale de C(Z +0,5) 

Partie entière de Z{log D — log €) 

Partie décimale de Z{log D — log e) 

= log ÿ2rD 

= Uloœge 

(correction sur logarithme décimal de la formule de Stirling) 
Retenue, partie entière de la somme des parties décimales de 
log Z! 

Exposant de Z! 

Logarithme de la mantisse de Z! 

Mantisse brute de Z! (comportant les décimales parasites) 
Nombre de décimales à afficher 

Variable de calcul (= 10°) 

Mantisse nette de Z! à afficher (débarrassée des décimales 
parasites) 

Elimination des mantisses à deux chiffres 

Affichage 

Réinitialisation 
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PROGRAMMATION 


mémoire N le résultat brut de la man-. 


tisse de Z! (N = 2,294694863) et en 
mémoire O le nombre de décimales du 
résultat à afficher, 2 dans notre exem- 
ple. La ligne 240 décale la virgule de 
deux positions vers la droite 
(229,4694863), ajoute 0,5 au résultat 
pour obtenir l’arrondi au chiffre le 
plus proche (229,9694863), en retient 
la partie entière (229) et redécale la 
virgule de deux positions vers la gau- 
che pour obtenir et afficher 2,29. 


J’attire tout particulièrement votre 
attention sur le mécanisme de cette 
ligne 240, qui élimine littéralement 
toutes les décimales parasites. 


L'affichage indique donc : 
Z! = 2,29 E 31 323 381 

Si l’on avait pris comme exemple Z 
= 50 000 000 au lieu de 5 000 000, il 


est clair que la mantisse aurait dû être 
exprimée avec 2 chiffres significatifs 


POUR ÊTRE PRÉCIS 


au lieu de 3, l’exposant comportant 
alors 9 chiffres au lieu de 8. On voit 
donc qu’en règle générale, si le nom- 
bre de chiffres de l’exposant aug- 
mente d’une unité, on perd un chiffre 
significatif sur la mantisse. 


C’est le tribut à payer pour l’exploi- 
tation logarithmique des fonctions 
exponentielles, comme la formule de 
Stirling. Ainsi, la somme des chiffres 
significatifs de la mantisse et de 
l’exposant sera toujours égale à 11, ce 
qui est en accord avec la précision de 
la machine (12 chiffres significatifs 
pour les calculs internes, avec incerti- 
tude quant au dernier). 


Si vous voulez exprimer les résultats 
avec un chiffre de plus, remplacez 9 
par 10 à la ligne 220, mais ce sera à 
vos risques et périls, car vous multi- 
plierez par 10 la probabilité de voir le 


dernier chiffre affiché de la mantisse 
entaché d’une erreur d’une unité. 


Le mode d'emploi 


du programme 


Un mot sur le mode d’emploi du 
programme (il peut s’utiliser avec ou 
sans imprimante): initialiser par 
SHFT L, introduire la valeur de Z et 
presser sur ENTER. Réinitialiser par 
une autre pression sur ENTER. 


Le temps d’exécution est de 2 à 10 
secondes pour Z compris entre O et 
23, et de l’ordre de 10 secondes pour 
Z supérieur à 23. 


Pierre Ladislas GEDO 


ont l’esprit conservateur. 


DISKBANK et ses systèmes : Média Mate 3, Média Mate 5, 
Système/3, Système/5, Système/8. 


Economiques, modulaires, ils protègent, conservent vos 


rscg carrières 


importateur distributeur, PAC+ - 54, rue d'Amsterdam - 75009 Paris - 874.00.24 


Les bank 


disquettes. 


haute qualité. 


Pratiques, vous les emportez avec vous. 
Discrets, ils ne prennent pas de place. 
intelligents, ils permettent un classement efficace et de 


Après tout, on n'a jamais vu une “bank” prendre des 
risques : trop conservateur pour cela. 


DISKBANK 


La protection de vos disquettes 


| 


Pour plus de renseignements, 
adressez nous votre carte de visite 
ou complétez ce coupon réponse 
PAC+ - 54, rue d'Amsterdam - 75009 PARIS 


F 

| Nom : a, | 
l Prénom : 2 | 
| Raison sociale : 


l 
Adresse : | 
1e Ps | 
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BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 
soigneusement toutes les astuces, des plus 

élémentaires aux plus subtiles, Vous êtes certain 
de n'en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices. Mème s'il ne s'agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire... Si ce ne sont pas 
des secrets que vous cherchez à conserver 

_jalousement, faites-en part au journal. Celles qui 
nous paraïtront les plus intéressantes enrichiront 
à leur tour la boîte à malices. Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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FX-702P 


UN NOM 
POUR 
CHAQUE LISTE 


Rien ne ressemble plus à une 

liste de programme qu’une 
autre liste de programme. Surtout 
lorsque ces listes sont imprimées avec 
la même imprimante, sur un même 
papier. 


Heureusement, il existe un moyen 
de les différencier : leur donner un 
nom. Et avec le FX-702P et son 
imprimante, la FP-10, c’est facile : le 
nom peut apparaître sous la forme 
d’un titre, sans avoir été programmé. 
Ce résultat s’obtient en protégeant le 
programme par un mot de passe et, 
alors seulement, en le listant. Par 
exemple, un programme d’Othello 
dont le titre sera OTHELLO, juste- 
ment, sera protégé par PASS 
“OTHELLO”’”’ (EXE) avant d’être 
listé par LIST ‘‘OTHELLO”’ (EXE). 


Et ainsi, le titre apparaît sur le 
papier aluminisé, en toutes lettres ! 


Fabrice ROGISTER 


ZX SPECTRUM 


CANAUX ET 
« MICRODRIVES » 


ES la notice sur l’interface ZX1 et 
le microdrive, les données du Spec- 
trum peuvent circuler à destination et 
en provenance de divers éléments 
d’un système informatique : clavier, 
écran, imprimante, microdrive, synthé- 
tiseur vocal, générateur de sons. 
Ces informations passent par 
l’intermédiaire de canaux. Sur un 
Spectrum de base, quatre canaux 
sont préétablis, et les axes de circula- 
tion des données, appelés « voies », 
sont tels que : 
e canal «&R », voie#0, correspond 
aux sorties vers la partie inférieure de 
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l'écran, celle 
rendu ; 

° canal «K », voie#1, correspond 
aux entrées à partir du clavier et à 
l'affichage de la saisie vers la partie 
inférieure de l’écran ; 

. canal « S », voie#2, correspond à 
la sortie vers la partie supérieure de 
l'écran, celle réservée à l’utilisateur ; 
. canal « P », voie#3, correspond à 
la sortie vers l’imprimante. 


Ainsi PRINT#2 revient au même 
que d’omettre la spécification #2 
(cela équivaut à PRINT seul). 
LPRINT#3 revient au même que 
LPRINT seul. Mais PRINT#3, mal- 
gré un PRINT et non un LPRINT 
enverra les données vers l’imprimante 
et non pas sur l’écran. 


réservée au compte 


A l’adresse pointée par la variable 
système CHANS, se trouvent 20 
octets concernant ces quatre canaux 
préétablis, soit 5 octets par canal : 

e les deux premiers donnent l’adresse 
de la routine en mémoire morte de la 
sortie sur ce canal ; 

e les deux suivants donnent l’adresse 
de la routine en mémoire morte de 
l'entrée sur ce canal ; 

e le cinquième et dernier octet cor- 
respond au code d’une lettre du canal 
concerné K, S, R ou P. 


Ceci peut nous intéresser, car si 
l’on détourne une sortie vers une 
autre adresse, on peut alors faire tou- 
tes sortes de manipulations sur les 
données à transmettre sur le canal 
choisi. 

C’est ce que montre le programme 
suivant, qui remplace l’adresse de la 
sortie sur le canal S par une autre 
adresse. À cette adresse, nous avons 
au préalable implanté une petite rou- 
tine qui ne fait qu’ajouter 32 aux 
codes de certains caractères. 

10 CLEAR 31999 


20 LET Z=5+PEEK 23631 +256*.. 


PEEK 23632 
30 POKE Z,0 : POKE Z +1, 125 
40 FOR N=0 TO 8 
POKE 32000+N, À : NEXT N 


: READ A: 


France, votre Spectrum peut s’ouvrir 
sur d’autres canaux et d’autres voies. 


Mais, pour s'ouvrir sur-le monde 
extérieur, le Spectrum a besoin 
d’autres variables système. En réser- 
vant de l’espace pour ces nouvelles 
variables, l'interface ZX1 effectue 
quelque chose qui ne convient vraiment 
pas à certains logiciels déjà écrits pour 
le Spectrum. Il réalise en fait une trans- 
lation de toute la zone mémoire, à par- 
tir de la zone programme, et cela vers 
le haut. L’adresse du début de la zone 
programme n’est donc plus fixe et égale 
à 23755 : elle-est devenue variable. 
Or, les concepteurs de logiciels ont 
gardé la vieille habitude, héritée du 
ZX 81, de nicher le langage-machine 
dans une REM constituant la pre- 
mière ligne du programme. 


Ainsi, un excellent logiciel, PASCAL 
HPAT HISOFT ne peut tout simple- 
ment pas être fourni sous la forme d’un 
microdrive. Mais pourquoi se priver de 
son implantation sur celui-ci à partir 
d’une cassette ? On le chargerait ainsi 
en moins de 20 secondes, contre 2 mn 
30 quand il est lu à partir de la cassette. 


La solution existe, et elle est assez 
simple : il faut qu'après chargement 
à partir du microdrive, le début de la 
zone programme soit à nouveau à 
l’adresse 23755 et donc redescendre 
de 58 octets (ceux que s’approprie l’in- 
terface ZX1). 


Voilà comment y parvenir. Entrez le 
programme suivant : 
10 CLEAR 31999 
20 FOR N=0 TO 19 : READ A : 
POKE 23296+N, À : NEXT N 
30 DATA 33, 0, 125, 17, 22, 96, 1, 
113, 82, 237, 176, 33, 240, 92, 17, 
182, 92, 195, 229, 25 
40 LOAD*‘‘m” ; 1; 
CODE 32000 


‘pascal 1”? 


50 DATA 254, 32, 56, 2, 203, 239, … 


195, 244, 9 
60 PRINT ‘‘aBcDeFgH”? 
70 LIST 


Résultat surprenant, n’est-ce pas ? 


Si vous avez la petite imprimante Sin- 


clair, vous pouvez dét ie 
P ourner la sorti | LRN RST R/S SST 5 LRN RST R/S R/S. 


Essayez donc d’interrompre la ronde en pressant sur R/S (mais oui, c’est possi- 


en modifiant les lignes : 


20 LET Z=15+PEEK 23631 + 256* 


PEEK 23632 
et 
70 LLIST 


Maintenant que les microdrives et 
l'interface ZX1 sont disponibles en 
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50 LOADY*‘‘m”” ; 1 ; ‘‘pascal 2”? 

et sauvegardez-le sur microdrive en 
demandant SAVE*‘‘m’’; 1; 
‘‘HP4S”’ LINE 10 et vérifiez par 
VERIFY*‘‘m’”” ; 1 ; ‘‘HP4S”’ 


Prenez alors la cassette PASCAL ; 
faites (en mode commande) CLEAR 
31999, puis MERGE‘‘”’. Quand le 
programme est en mémoire, arrêtez . 
la cassette et rajoutez une ligne 
numérotée 14 : 

14 CLEAR 24576: RANDOMIZE 
USR 23296 : GOTO 3 


Chargez ensuite en mémoire le 
code du compilateur Pascal à partir 
de l'adresse 32000 en faisant : 
LOAD‘‘’CODE 32000. Cette opéra- 
tion terminée, faites alors en 
séquence : SAVE+*‘m” ; 1 ; ‘‘pascal 
l’’ CODE 32000, 21105 puis, 
VERIFY*‘m’; 1; ‘‘pascal 1”? 
CODE puis, SAVE*‘*m” ; 1 ; ‘‘pas- 
çal 2” LINE 14 et, VERIFY*‘‘m” ; 
1 ; ‘‘pascal 2”. 


Et voilà, le tour est joué. Vous 
avez maintenant sur la cartouche du 
microdrive : 


° un programme permettant de char- 
ger les autres programmes du Pascal 
venant de la cartouche, ainsi qu’une 
petite routine en langage-machine qui 
rendra silencieuse l’interface ZX1 ; 


° un bloc d’octets correspondant au 
compilateur ; 
e un programme enfin (légèrement 
modifié) correspondant à l’interface 
Basic/Pascal. 


Désormais, en faisant : LOAD* 
““m’’ ; 13; “HP4S”, le Pascal se 
chargera en un temps record... 


Benoît THONNART 


TL-57 


TOURNE, TOURNE 


: e Pour lancer la TI-57 dans une ronde sans fin, entrez la suite d’instructions 


suivante : LRN Exc SST Lbl 1. R/S RST . LRN RST R/S R/S LRN 


ble) et quand vous y serez parvenu, listez le programme, par curiosité. et essayez 
de la relancer. Heureusement, vous avez toujours la possibilité d’éteindre la 


machine. Et de recommencer ! 


Philippe MORALES et Christophe TAVERNER 
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CLS:CLR 
“Nombre de sommets " 


INPUT 
INPUT 
INPUT 
DIM X 
FOR I! 
78 PR 
ce PR 
9Q NEXT: 
180 FOR 
11G 
128 
139 
140 N 
150 
188 
178 
128 
194 N 
208 NEXT 
218 END 


"Nombre de polugones 


BASIC 


UN MOTIF GÉOMÉTRIQUE À LA MODE 


ES On voit de plus en plus, à la télé- 

vision ou sur les écrans d’ordina- 
teurs, des figures formées de polygones 
superposés légèrement déformés les uns 
par rapport aux autres, donnant par- 
fois une impression de relief très remar- 
quable. Leur élaboration est une appli- 
cation simple de la notion de barycen- 
tre. Le programme ci-dessous permet 
de choisir le nombre n de sommets des 


“sp 


"Coefficient réducteur "35K 


(ND: 


INT 
INT 


d=i TG 


EXT I 


DIM Y{N5 

= TO N—1 
FXC"SI+i:")= * 
FYC"si+is")= " 


SCREEN 


PF 


XIN)=X(@G:I: 
FOR I=Q TO N-1 
LINE {X(I3,Y{I) 


INPUT X{I) 
INPUT Y{T 


% 
x 


Y{H)=V(@)} 


i—{XCI+1},VCI+13} 


IF J=P GOTO Tp@ 
FOR I=G TO N—-i 


XCT)=(1-K)#X CI) 4+KEXCI+15 
VEII)I=II-K)KYCID+KEYCI+1) 


EXT I 
J 


Variation en W majeur 
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J// 
[/} 


sens 
pe 


polygones, le nombre total p de poly- 
gones à construire, et un « coefficient 
réducteur » k. On le choisit générale- 
ment entre 0 et 1, et voisin de l’un de 
ces deux nombres (par exemple : 0,1 ou 
0,9). 

Si le polygone initial est ABCD..., on 
construit à l’aide du nombre k un poly- 
gone A’B’C’D’... en définissant A’ 
comme barycentre de A et de B munis 


Motifs géométriques 
Programme en Basic 
Auteur André Warusfel 
Copyright LIST et l’auteur 


respectivement des masses (1-k) et k, 
puis B’ comme barycentre de B et de 
C et ainsi de suite (cela signifie simple- 
ment que le vecteur AB est égal au 
produit du vecteur AB par k). Choisir 
K négatif ou supérieur à 1 n’a plus d’ef- 
fet réducteur, mais agrandit au con- 
traire le polygone : il faut s’attendre 
alors à dépasser éventuellement les limi- 
tes de l’écran. Le programme est écrit 
pour TRS 80 en haute résolution ; mais 
il s’adapte immédiatement, par exem- 
ple, à la table traçante CE-150 du 
PC-1500 ou à tout autre ordinateur 
ayant des possibilités graphiques. 


André WARUSFEL 


FX-602P 


ELLE DÉFILE 
ENCORE 


La FX-602P ne se laisse pas 
toujours interrompre dans son 
travail. Voyez comment elle réagit au 
lancement d’un tout petit pro- 
gramme : LBL 1 = PAUSE GOTO 
1. Elle tourne et ne peut être arrêtée 
que par HLT. Même des appuis répé- 
tés sur AC sont vains. Pendant 
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qu’elle ‘‘travaille”’, essayez de frap- 
per 5X ou 3+, etc. Puis, essayez 
5+ + ou 3x X, etc. Et si le défilé est 
trop rapide, vous pourrez ajouter un 
PAUSE dans le programme. 

Ce peut être un moyen d’appren- 
dre ses tables. 


Thierry DEMOY 
PET 
ÇA FAIT 
DESORDRE 


Les historiens du PET/CBM 
savent reconnaître une machine 
dès la mise sous tension. En effet, le 
PET 2001, équipé du Basic 1, que ce 
soit le 8 Ko au clavier de calculatrice 
ou le modèle « business » à 32 Ko 
affichait : 
*+*x COMMODORE BASIC x*x*+ 
La série 3000, équipée du Basic 2, 
affichait à l’ouverture : 
##4# COMMODORE BASIC ### 


-PETT ORDINATEUR AYANT 
L'ESPRIT D'ÉSCALIER 


Et puis est venue la glorieuse série 
4000, avec le Basic 4.0. Ce qui est 
advenu du Basic 3, personne ne l’a 
jamais su. Toujours est-il que les 
acquéreurs de la nouvelle série, ou ceux 
qui avaient changé les MEMSs voyaient 
avec orgueil s’afficher un nouveau 
message : 

xxx COMMODORE BASIC 4.0 ##x 


Vous êtes dans ce cas ? Alors frap- 
pez donc en mode direct la ligne 
suivante : 

FOR I = 54360 TO 54384 : PRINT 
CHRS(PEEK(I)) ; : NEXT I 

Dites, vous ne trouvez pas que ça fait 

désordre d’avoir laissé traîner ça ? 


François J. BAYARD 
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ATARI 


JOUEURS ET PROJECTILES 


Les dessins de joueurs et de pro- 
ES) jectiles sont le leitmotiv des jeux 
vidéos d’action : des joueurs sur l’écran 
tiennent leurs adversaires sous le feu de 
leurs canons ; le circuit spécialisé CTIA 
est un manipulateur de formes, il peut 
se charger rapidement de les représen- 
ter dans leur mobilité. Le MPG (Mis- 
sile Player Graphics) est capable d’ani- 
mer simultanément quatre formes dites 
« joueurs » que nous désignerons de JO 
à J3 ainsi que quatre formes projecti- 
les, de PO à P3. 


Etudions la génération de formes 
avec l’exemple du programme (page 
suivante) ; après RUN, l’écran passe en 


mode graphique 2, réservé au texte ; 
pourtant un avion de couleur rouge 
occupe le centre de l’image. Le MPG 
est indépendant du mode graphique en 


cours, il superpose les formes sur 
l'écran prédéfini par l’ordre 
GRAPHICS. 


En examinant le contenu de la 
mémoire à partir de l’adresse BASTA- 
BLE + 1024, sur une hauteur de 256 
octets (la boucle en 240 initialise cette 
zone à 0, puis de 300 à 340 y introduit 
les DATA), on constate que la repré- 
sentation binaire de la mémoire est ana- 
logue au dessin observé à l’écran : les 
1 correspondent aux points allumés et 


Table d'occupation mémoire du Missile Player Graphics 


Adresses 


8 bits 
HASTABLE 


Occupation mémoire 


8 bits 


SE in 


HASTARLE+ 384 


BASTAELE+ Si 


HASTABLE+ 640 


HASTABLE+ 768 


TT 


A EE CT A 


Eépepi pi 


Joueur 


a 


HASTABLE+1024 


FR 


JOuEUr 


ne it + su 


joueur 5 


_ ES =T mr 


JOUIEUR 


ÉASTABLE+ 6896 | 


BASTABLE+1280 
JOUEUR 1 
BASTABLE+15:56 
JOUEUR € 
EASTARLE+1792 


JOUEUR 3 


HASTAHLE+2048 
résolution 
normale 


Avant toute utilisation: 


DE DD Ds D AE 2 Des dr 
Po jee Des je eu ins ju 


GR SRE Pa D ES D 


PRE DR TOR PES, RS ET 


MR MERE 


demi-résolution 


POKE 53277,3: AUTORISATION DU MPG 
POKE 559,RESOLUTION(62 = normal;46 = demi-résolution) 
POKE 54279,NUMERO DE PAGE MEMOIRE DE DEBUT DE TABLE 
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agit-il en projetant une tranche de 
mémoire à l’écran. 


Nous pouvons maintenant modifier 
quelques paramètres. 


Le paramètre ABCISSE:‘POKE 
53248,ABCISSE’. En tapant 120 
| ABCISSE = 100, on pousse l’avion vers 
| la gauche. Ajoutons les lignes : 
| 1040 V=-1 


les O0 aux points éteints. Ainsi le MPG 
| 
| 
Î 
| 


| 1050 ABCISSE = ABCISSE + V:IF 
| ABCISSE < 0 THEN ABCISSE = 225 
1060 GOTO 1030 


| L'avion s’anime d’un mouvement 
régulier de droite à gauche ; le test en 


Alors, c'est qui 
le meilleur 


ment de quitter l’écran. 


Le paramètre COULEUR :‘POKE 
704,COULEUR’. Nous retrouvons la 
palette habituelle des teintes de 0 à 15 ; 
bien qu’une forme soit invisible sur 
fond de même couleur, il est possible 

| d’établir des priorités. 


Le paramètre TAILLE:‘POKE 

53256,TAILLE”. La tranche superpo- 

| sée à l’écran peut avoir différentes lar- 

_geurs, le système se chargeant de dou- 

bler ou de quadrupler l’image sans la 
modifier. 


Le MPG peut animer trois autres 
formes selon les mêmes principes, les 
adresses de la table et des paramètres 
étant seules modifiées. 


Récapitulons les étapes nécessaires à 


Le dessin des formes 


60 
90 


32+16+8+4 


64 +16+8 +2 


128+64+32+16+8+4+2+1 
128+64+32+16+8+4+2+1 

64 
| 64 


+2 


+2 


1050 empêche la tranche en mouve-. 


Génération de formes 
Programme pour Atari 
Auteur Alain Lavenir 
Copyright LIST et l’auteur 


19 GRAFHICS 2? 


100 REM INITIALISATION DES FARAMETRES DU M.F.G. 

110 HAUT = 90 

120 ABCISSE = 120 

139 COULEUR = 3 

140 TAILLE = © 

200 REM RECHERCHE D'UNE ZONE MEMOIRE POUR LOGER LA TABLE 
210 HM = FPEEK (747) : REM FAGE DU HAUT DE LA MEMOIRE 
UTILISATEUR 

220 M = (8 x INT (HM/8)) - 8 : REM ON FREND LE MULTIFLE 
DE 8 JUSTE EN DESSOUS ET ON RESERVE 8 FAGES 

230 HASTABLE = M *X 256 

240 FOR J = © TO 2048 : FOKE BASTABLE + J ,0 : NEXT J 
200 REM ENTREE DE LA FORME 

310 FOR L = 0 TO 6 

220 READ FORME 

330 FOKE BASTABLE + 1024 + HAUT + L , FORME 

340 NEXT L | 

400 REM INITIALISATION DU M.F.G. 


410 
DE TABLE 

420 FOKHE S3277,35 
430 FOHE 559,62 : 


FOKE S54279,M : REM NUMERO DE FÂGE MEMOIRE DE DEBUT 


: REM VALIDATION DU M.F.G. 
REM DEFINITION NORMALE 


1000 REM UTILISATION DU M.F.G. 


1010 FOKE 53256 , TAILLE 
1020 FOFE 704 , COULEUR 

1020 FOKE 5352748 , ARCISSE 
10000 DATA 6 , 24 , 97 , ?55 


l’utilisation du Missile 
Graphics : 

+ dessiner des formes dans une grille de 
8 colonnes sur 256 lignes, en grisant les 
cases (voir schéma dessin des formes) ; 
établir la liste des DATAs en commen- 
çant par la ligne la plus haute, pour 
chaque joueur ; 

* choisir une zone mémoire pour loger 
la table des formes ; le MPG utilise 8 
pages mémoire de 256 octets à partir 
d’une valeur qui doit être un multiple 
de 8. Il est prudent de se placer sous 
le haut de la mémoire utilisateur et 
d’initialiser cette zone avec des 0 (soit 
BASTABLE l’adresse du bas de cette 
table) ; 

e entrer la table des formes (par 256 
octets) ; 


+ valider le MPG en lui fournissant 


Player 
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SR 


s 97 , 24 , 6 


l'adresse de départ de la table en 54279, 
3 en 53277, et 62 en 559 qui est un code 
permettant au MPG d’analyser les for- 
mes plus finement ; 

+ manipuler les formes en modifiant les 
paramètres. 


Le cas des quatre projectiles est peu 
différent : leurs tranches de projection 
larges de 2 bits sur 256 sont adjacen- 
tes ; on construit la table de DATAs de 
la même manière, en traitant les qua- 
tre missiles simultanément ; la couleur 
d’un projectile est celle du joueur qui 
porte son numéro ; les tailles sont 
fixées globalement par la mémoire 
53260 (0 = simple, 1 = double, 3 = 
quadruple). La position du p-ième pro- 
jectile est donnée par PEEK 53252 +p 
(c’est la loi de l’Ouest). 


Enfin, pour agir sur les formes, il 

faut faire : 

POKE 704 + J, COULEUR JOUEUR J 

POKE 53248 + J,ABCISSE 
JOUEUR J 

POKE 53252 + P,ABCISSE 
PROJECTILE P 

POKE 53256 + J,TAILLE JOUEUR 
J(0 ou 1 ou 3) 

POKE 53260 ,TAILLE DE TOUS LES 
MISSILES (0 ou 1 ou 3) 


Alain LAVENIR 
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LA RÉCRÉ DE LIST* 


LES JEUX 
ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d'abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique, Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main... 


7 


Minimum et maximum 


En Basic et en Fortran, les 
5,7 fonctions MIN(A,B) et 
MAX(A,B) retournent respectivement 
la plus petite et la plus grande des 
deux valeurs représentées par À et B. 


Ces deux fonctions, que vous 
n'aurez aucun mal à comprendre, 
font une comparaison entre À et B (si 
A<B). Le problème est d’éliminer ce 


En Pascal, ces fonctions ne sont pas 
disponibles en standard. Leur pro- 
grammation ne pose bien entendu 
aucun problème. On peut par exemple 
écrire : 


fonction MIN (A, B : entier) : entier ; 
debut 

fin ; 
fonction MAX (A, B : entier) : entier ; 


debut 


si A<B alors MAX:=B sinon MAX:=A 


fin ; 
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si A<B alors MIN:=A sinon MIN:=B 


test. Il s’agit donc de trouver deux 
expressions arithmétiques dépendant 
de A et de B, la première ayant pour 
résultat le minimum entre À et B, et 
la seconde le maximum entre A et B. 
Vous pouvez utiliser toutes les opéra- 
tions ou fonctions disponibles sur 
votre ordinateur, à l’exclusion bien 
entendu de MIN et de MAX, ainsi 
que des opérateurs de relation (<, >, 
=) etc). 


* Les solutions des jeux proposés ici paraîtront 
dans le prochain numéro de LIST 
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L'affectation, cette incomprise 


Chaque langage informatique a 
sa particularité. Si nous pre- 
nons l'instruction la plus simple qui 
soit, l'affectation de la valeur d’une 
variable à une autre, il existe presque 
autant de possibilités que de langages. 
Ainsi : 


SOLUTIONS 
DU NUMÉRO PRÉCÉDENT 


Les solutions présentées ici 
répondent aux problèmes 
posés dans le précédent 
numéro de LIST, 

Ce ne sont pas forcément 
les meilleures ! 


en Pascal ou en Algol, on écrit A:=B 

en Basic LET A=B 

en Cobol MOVE B TO A 
en Fortran A=B 

en APL ou en LSE : A+B 

et même, dans d’autres langages : BA 


Voilà qui ne simplifie pas tellement 
la compréhension des programmes, 
surtout si, comme dans les deux der- 
niers cas, les notations sont aussi 
divergentes. Mais au fait, savez-vous 
précisément ce qu'est une affecta- 
tion ? Ainsi, dans une instruction 
aussi simple (et inutile) que A:= A, le 
premier À ne signifie pas la même 
chose que le second. Alors, que repré- 
sente chacun de ces deux A ? 


Sigles et abréviations 


La liste ci-dessous est consti- 
: tuée de huit sigles ou abrévia- 
tions rencontrés en informatique. 
Pouvez-vous indiquer, pour chacun 
d’entre eux, la signification de l’abré- 
viation utilisée ? 

e BIT (zéro ou un) 

e CP/M (système d’exploitation) 

e ASCII (codage des caractères) 

e BS (caractère de contrôle) 

e SOS (circuits intégrés) 

e CRT (écrans d’ordinateurs) 

e ALGOL (langage de programma- 
tion) 


vw” 4 
Court et structuré 


Le programme proposé affiche 
les puissances successives de 2. 
Il peut être récrit beaucoup plus élé- 
gamment de la façon suivante : 
10 for X=0 to 17 
20 print X,24X 
30 next X 
40 end 


C’est la boucle for...next qui rend 
le programme plus court et plus struc- 
turé. 


REPETER 
Lire….article _: 


5 


Pair ou impair 


Le résultat de |’ expression 

RE 19/2 est Ô si i est pair 

et 1 si i est impair. L’ expression arith- 

métique plus simple qui permet 

: obtenir le même résultat est celle- 

: i—2*ENT (i/2) où ENT(Xx) est la 

fonction qui retourne la partie entière 
de x. 


vw? 
L'inventaire incomplet 


E L’article disparu a par exemple 
fait l’objet d’une commande 
de 1 unité pendant un mois. La valeur 
de Commande était donc égale à 1. 
Au cours de ce même mois, un seul 
acheteur s’est présenté pour cet arti- 
cle, mais, au lieu de l’acheter, il a 
demandé que celui-ci soit repris et 
échangé contre un autre. La valeur de 
Vendu a donc été mise à —1, 
puisqu'il s'agissait d’une reprise. Le 
résultat de l’opération Commande + 
Livre + Vendu est donc égal à 0, puis- 
que les deux valeurs s’annulent 
mutuellement. Ainsi, l’article n’a pas 
été imprimé dans la liste de contrôle. 


Le programme d’édition peut être 
corrigé de deux manières différentes. 
La première consiste non pas à tester 
le total des entrées ou sorties de 
stock, maïs à vérifier individuellement 
ces valeurs : 


suivant 


Si Commande < >0 OÙ Livre < >0 OÙ Vendu < >0 ALORS 
Imprimer. article 


FIN__SI 


JUSQU A Fin_de__ fichier 

L’autre méthode consiste à ne pas 
tenir compte des valeurs qui peuvent 
éventuellement s’annuler, en ne rete- 
nant que les valeurs absolues. Il est 
alors possible d'écrire le programme 


d'édition ainsi : 
REPETER 
Lire__article 


suivant 


SI ABS(Cômmande) + ABS(Livre) + ABS(Vendu) < >0 ALORS 
Imprimer article 


FIN_SI 


e SSII (sociétés de logiciel) 
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JUSQU.A Fin__de_ fichier Ci 
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Chez Duriez : 15 micros 


portatifs + 9 domestiques 


Super branchés (pas d'angoisse !) 


ATARI, CANON, CASIO, COMMO- 
DORE, HEWLETT PACKARD, 


ORIC, SHARP, 


Avez-vous 
vu les 


SINCLAIR, 
THOMPSON. 


Charter: Duriez ? 


valables jusqu'au 20 octobre 


ATARI 


600 XL Péritel 
800 XL Péritel ... se 
Magnéto .......... s 
Lecteur de disquette .... 
Imprimante courrier . 
Traceur 4 couleurs . ; 
Manette de jeu ........ 


RAA RÉRR à 


e 

? Machines * 

+ e e 
+ aecrire 
LD Photocopieurs 
*% + Répondeurs 
* téléphoniques 
# * Calculatrices 
« ‘ Papeterie 
x ‘etc... 
& !! Demandezle 
4 nouveau 


. catalogue 
L * général 


Duriez 
contre 3 timbres 
: à2,10F. 


x [ Duriez, 
+ 112 et 132 
re bld St-Germain 


PETETTTTTTT TT TT TT TT) 


75006 Paris 
# (M° Odéon, St- 

* Michel) 
MPTTTTITE, 
CANON 
X07 mémoire 8K .:..... 2170 
Traceur 4 coul. X710.... 1850 
X07 + X710.......... 3900 
Extension 8K ......... 750 


Carte mém.4KXM100 .. 412 
Carte mémoire 8K XM101 850 
Cordon magnéto....... 65 
Coupleur optique ...... 470 
Inter. RS232 + cordon .. 725 
Cordons imp. parallèle .. 295 


Secteur. ............. 82 
Carte Fichiers ......... 530 
Carte Graphique ...... 530 
Cassette Stat ......... 298 
Cassette Graph........ 298 
Cassette Text ......... 298 
CASIO 
PB700........ 640 
Traceur 4 coul. FA 10. 2280 
PB 700 + FA1O ....... . 3850 
Extension 4KO R4...... 427 


Magnéto intégré CM... 850 
Interface FA4 
Fx702P ...... 
Interface magnéto FA2 .. 280 


Imprimante FP10O ...... 610 
FxB02P'; ,-.-. 990 
PB100....... 635 
Interface magnéto FA3 . 285 
Imprimante FP 12 .. 600 
FP200. . ...,. .. 2990 
Extension 8K ......... 623 
Cordon magnéto. . 5 85 
Traceur 4 coul. ....... 2280 
Lecteur de disquettes 4430 
Clavier numérique . . 512 
Secteur. ...... + 225 


Cordon impri. parallèle 390 
Extension CETL (ROM) 809 


COMMODORE 


Commodore 64 Pal . . 2750 
Commodore 64 Péritel... 3450 
Commodore VIC 20 Pal.. 1550 
Commodore VC 20 Secam 2100 
Extension mémoire 3K... 295 
Extension mémoire 8K ... 416 
Extension mémoire 16K.. 665 


PERIPHERIQUES VIC20 et C64 


Lecteur de cassettes ..... 465 


Lecteur de disque 1541 .. 3380 
Imprim. 50 cps MPS801 . 2690 
Traceur 4 couleurs. ..... 1995 
Interface RS232C...... 345 
Manette de jeu ........ 120 
Crayon lumineux. . ... 475 
LOGICIEL VIC 20 
Super expender ....... 430 
Programmer's aid ....... 350 
Screen Master ....... 415 
VIC Forth . is . 800 
LOGICIEL C64 
Utilitaire 
TOOL 64 (cart) .... . 640 
Master {disq) ......... 950 
64 Forth {cart}... ... .. 659 
Zoom Pascal (disq) ..... 456 
HES MON 64 (cart) .. 440 
Professionnel 
HES Writer lan) - AR Ntae 498 
Omnicalc (cart) . +... 587 
Stat 64 (cart) ....... 490 
Graph 64 (cart) ....... 380 
Multiplan (disq) ....... 990 
Vizawriter (disq) . 1355 
Super Base 64 (disa) £ 1600 
Educatif 
Turtle graphic (cart). .... 659 
Paint brush {cant)....... 223 
Sinthy 64 (K7) ....... 326 
Turtle Toyland (disq) ... 365 
Coco (disq)........... 440 
Jeux 
Choplifter (cart) ...... 495 
Lode Runner (cart). ..... 495 
Attack of Mutant Camel 
{cant) ........... ... 384 
Lazer Zone (cart) . . 328 
Gridrunner (cart). . 328 
Rootin tootin (cart) : 365 
Omegarace {rant) . 215 
Space rescue (disa) . 495 
Speed Bingo (cart . 215 
Clowns (cart) ......... 215 
Kickman (cart) . ieie, 21 
Sea Wolf {cart)....... 215 


300 prix 


AU CŒUR DU QUAR- 
TIER LATIN, Duriez 
vend en magasin et par 


poste à prix charter. © 


I publie régulièrement 
bancs d’essai et Catalo- 
gues condensés de caracté- 
ristiques techniques préci- 
ses, sans délayage publici- 
taire, complétés par des 
appréciations et des tests 
Duriez sans complaisance. 


Ce banc d'essai est gra- 
tuit en magasin, ou envoyé 
par poste contre 3 timbres 


à 2,10 Frs. 
Jupiter Lande (cart) . 215 
Radar rat race (cart) . 215 


Echec Grand Master (K7) 305 


Kong (K7) ........... 125 

Scramble (K7) . 5 125 

Motor Mania (K7) - 165 

MINT pote DUR + 329 

Benii (cart) . - 236 

The Pit (cart) . TS 329 

EPSON 

PA issus 10300 

Extension mémoire 60K 
3300 

Extension mémoire 120K … 
4660 

HX20 5800 

Magnéto intégré . 1100 

Extension 16K .. 1200 

Modem + cordon . 1755 

Cassette Intext ....... 780 

HEWLETT-PACKARD 

HP11C 810 

HP15C. 

HPI2C 

HP 16C ; 

HP41CV.. 

HP41CX. 

HP71 

Extension mémoire 4K . 784 

Lecteur de cartes 

magnétiques 

Interface 


Lecteur de cartes ... 
Lecteur optique . . .. 


Imprimante 82 143. 3690 
Accus rechargeables .... 390 
Chargeur ..... 155 
40 cartes magnétiques . . 239 
Papiertherm. noir (6b. j: 120 
Mémoire quadruple .... 809 
Module x lonction RTE 809 
Module temps Fe 809 
Module mémoire tampon . 809 
PERIPHERIQUES HPIL 
Module HPIL pour HP41. 1348 
Lecteur de cassette digit. . 4770 
Imprim. thermique HPIL.. 4770 


POUR 
CHOISIR, pen- 
sez 2 fois. 


1° Les perfor- 
mances de 
l'appareik ? 
2° Les perfor- 


mances des pro-f 
grammes dispo- 
nibies ? 

Duriez fait des 
sélections pour 
vous éviter des 
regrets. Vous 

êtes tranquille. 


Interface TV 3450 
Interface moniteur . .. . .. 2290 
10 mini cassettes digit.... 990 
OLIVETTI 
M10 mémoire 8K ... 5890 
M 10 mémoire 24K 6990 
Traceur 4 coul. ........ 2090 
Secteur. : : 98 
Cordon i imp. arallèle . 199 
Cordon imp. RS 232 . 498 
ORIC ATMOS 
Oric Atmos 48 K 2330 


Cordon Péritel + alimentation 


12 M season 95 
Traceur 4 coul. + cordon. 1510 
Cordon magnéto (jack) .. 45 
Cordon imp. parallèle . . 150 
Modulateur noir et blanc . 210 


Modulateur coul. SECAM 530 


Lecteur de cie 3". 3600 
br 3" .. 69 

le d'or (K7) : sav: 1180 
Cage (K7) 36 95 
Xenon {K7). ie 120 
Zorgon {K7) ...... 120 
Hobit (K7)........... 249 
Forth (K7).... ... 180 
Anglais Assimil LUE : 440 
Author (K7) .. ; 187 
Oric Calc (K7)........ 187 
Poly Fichier. ..... - 180 

SHARP 

PC 1500 À .... . 2065 
Traceur 4 coul. CE 150 .. 1990 
PC 1500 À + CE 150 ... 3990 


Extension 8K CE 155. 790 


Ext. 8K Protégée CE 159 1000 
Ext. 16K Protégée CE 161 1700 
Interf. RS232/Porallèle 1990 
Cable imp. parallèle 480 
Clavier sensitif . . -.. 1265 
PC1251.. rivesse 1218 
PC 1245. :: 5: .... 790 
PC 1401 ..... 1290 
Interface magnéto . ... 169 
Imprimante CE 126P.... 790 
Imp. + magnéto CE 125 . 1695 
SINCLAIR 
ZX81.. Laibeess 580 
Extension 16K........ 360 
Spectrum 48K Péritel 2325 
Spectrum 48K Pal ..... 1965 
Interface Péritel . .... 360 
TEXAS INSTRUMENTS 
LOGICIEL 
Jawbreaker |! (cart) . 250 
Othello (cart) . 188 
Mash (cart) . à 250 
The Attack (cart) 134 
Star Trek {cant) . 250 
Return to Pirate |. cart) . 250 
Tombstone City (cart) . 188 
Super Demon Attack cor) 250 
Tlinvaders {cart} . 188 
RERpec (cort}, : +, 250 
Min Challenger fon 134 
Burger Time (cart) . -. 250 


THOMSON 


. 2387 


. 598 

.. 3486 

Lecteur K7 ... .... 690 
Extension 64K ........... 1055 
Contrôleur de communic. . 850 
Manettes jeux et son . .. 580 
Lecteur dis. avec cont. 3596 
Memo Basic ....... 480 
Cordon imp. . 290 
Interface SECAM . x 530 

LOGICIELS 107 

Basic vol. 1....... 195 
Basic vol. 2.......... 195 
Basic vol. 3...... : 195 
Basic vol. 4........ 195 
Basic vol. 5........ 195 
Basic vol. 6..... : 195 
Atomium .. 350 
Echo: :.5 ce 260 
Survivor 350 
Logicod ds 2200 
Gemini..... Sr 260 
Crypto .. Minnie 2208 
Motus......,...... 295 
Tridi... 260 
EVOD es or ue 375 
PICHOR cs 495 
Melodia ....... .... 495 
Sauterelle. .......... 125 
Compléments et mul. 120 
Carré magique . ; 175 
Horloge ........ à 125 
Encadrement ......... 120 
Carotte malicieuse. ..... 175 
Diététique ...... 1. 175 
Allemand vol. 1 ....... 195 
Allemand vol. 2 ..... 195 
Mots croisés 1..,...... 195 
Mots croisés 2........ 195 
Budget familial is 450 
Cornet d'adresses . . 480 
Gérer vos fichiers 525 
Ronde des chiffres . :3. 125 
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